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GEM IUSSINES GRAPH (Amstrad PC) 
Programa completo de gráficos profesionales con 
listado e instru cciones pa ra su uso 
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Joven o viejo, seguro que te han divertido las aventuras 
de estos viejos conocidos. _ 
 
Esta es tu oportunidad para convertirte en el personaje 
 
dei Correcaminos, en un juego todo acción y emoción............. 
Corre a través de los desiertos, las autopistas o el cañón .
 
del Colorado, siguiendo el rastro del alpiste, que tanto 
te gusta. Pero... ¡ojo con el Coyote! Seguro que utilizará . 
todos sus sucios trucos para capturarte y poder comer su 
plato favorito... "Correcaminos con patatas fritas." '-- 
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POR FIN HA SIDO 
CAPTURADO 
EL PERSONAJE 
MAS ESCURRIDIZO 
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H e . mOSSegUidO . U . n . lar . go camino juntos a lo largo de 
100 números, casi 4.000 páginas dedicadas a toda 
la gama de productos Amstrad. Durante todo este 
tiempo nos hemos esforzado por seguir de cerca todos y 
cada uno de los modelos de la marca, intentando dar al 
lector, semana a semana, una panorámica informativa de 
todos los aspectos, a nuestro parecer, relevantes. 
Esta preocupación se ha traducido, como nuestros 
lectores saben muy bien, en un aumento considerable en el 
número de páginas de la revista a partir del número 65, que 
sin duda alguna marcÓ un hito en la historia de AMSTRAD 
Semanal. 
El número 100. por lo significativo y rendondo, parece 
ser un buen punto de arranque para iniciar una nueva 
etapa de renovación y cambio hacia mejor. 
Para ello, hemos contado con muchos argumentos de 
peso, entre ellos el nuevo enfoque que parece caracterizar la 
política de Amstrad: un decantarse hacia los ordenadores 
personales, sin p'risa pero sin pausa, y, lo que es más 
importante, sin abandonar ningún producto en el camino. 
Para responder a este cambio de situación, y mantener a 
la vez un clima informativo completo y atractivo, creemos 
que la mejor solución es aumentar considerablemente el 
número de páginas de lit revista y cambiar su periodicidad, 
esto es, pasar a ser mensuales. 
Estamos firmemente convencidos de que este nuevo 
enfoque nos va a permitir abordar todos los temas. 
relacionados con Amstrad al nivel de profundidad 
suficiente, ofreciendo unas páginas en las que cada lector 
encuentre una gran cantidad de artículos y secciones de 
interés, tenga el ordenador que tenga: CPC, PCW o pc. 
También sabemos por anticipado que esta nueva idea será 
tan bienvenida como de costumbre por parte de nuestros 
lectores, que a lo largo de 100 números nos han apoyado y 
sostenido sin descanso por el simple hecho de leemos, 
aconsejamos y criticarnos. Esperamos que esta actitud se 
mantenga a partir del número 1 de AMSTRAD Persona/, hijo 
predilecto y sucesor, dentro de una línea de continuidad de 
AMSTRAD Semanal y que estará en su quiosco a primeros 
del mes de octubre. 
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Un programa completo para 
PC, que hará las delicias de 
los amantes de los gráficos 
estadistícos y que sorprende 
por su fácil manejo y cuidada 
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C omo todos los años por estas 
fechas, la mayoría de las 
casas de software preparan nuevos 
juegos para Amstrad, todas con la 
intención de sacados al mercado 
entre finales de septiembre y 
principios de octubre. 
Zafiro va a distribuir un juego 
de la casa inglesa Domar, l1amado 
The Living Day Light, basado en 
la última película de J ames Bond, 
que fue estrenada en España en el 
mes de julio. Piranha distribuirá 
Mister Weems y los vampiros, 
una tétrica aventura llena de 
laberintos y sarcófagos. Élite 
prepara un paquete de tres juegos, 
que incluye Airwo/j 2 (simulador 
de vuelo de un helicóptero), 3DC 
y Great Gurianos. 
Dinamic sacará, a primeros de 
octubre, un juego de gráficos 
conversacionales, titulado 
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cada vez que se empieza a jugar y 
sin ellas es imposible alcanzar 
nuestro objetivo. 
La casa que parece tener más 
juegos en proyecto para esta 
temporada es Topo y todos ellos 
serán distribuidos por Erbe. 
Stardust reproduce un combate 
galáctico en el que tenemos que 
manejar siete naves para llegar a 
la base en la segunda parte del 


Novedades 


para el otoño 


Megacorps. Será el primero que se 
venda con una nueva marca 
comercial, llamada Dinamic AD 
Serie Aventuras, en la que 
Dinamic incluirá todos sus juegos 
de aventuras, como en este caso, 
mientras que el resto de sus 
juegos, arcades, deportivos, etc., 
aparecerán con el anagrama 
habitual de esta casa. En cuanto 
al nuevo juego, se trata de una 
aventura dividida en dos partes. 
En la primera tendremos que 
atravesar bosques y lagos, luchar 
contra enemigos hasta que 
lleguemos a una ciudad. La 
segunda parte se desarrolla dentro 
de la ciudad. 
Ópera Soft, además de la 
versión del Livingston, supongo 
para PC, prepara el lanzamiento 
de Goody, un entretenido y 
simpático juego en el que nuestra 
misión es- atracar el Banco de 
España. Pero antes hay que 
encontrar y comprar doce 
herramientas que, para darle 
mayor emoción, cambian de lugar 
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juego. Bang! es un juego con más 
de 300 K en gráficos, que hacen 
necesarias seis cargas y un scroll 
pixel a pixel. Se desarrolla en el 
típico ambiente del Oeste, con 
indios, pistoleros y estrechos 
caminos con sus respectivas 
emboscadas. Proyecto Antares 
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presenta una, aparentemente, 
situación en la que un americano 
y un ruso deben unir sus esfuerzos 
para salvar al mundo. Baooum 
tiene un tema bastante real. Se 
sitúa en la [ Guerra Mundial y 
pueden jugar hasta tres personas. 
Hay que manejar tanques, utilizar 
la artillería y evitar las 
alambradas de minas. Tentation 
nos transporta a un tiempo en el 
que los combates se realizan en 
las naves situadas en el espacio. 
Casanova, como su nombre nos 
sugiere, nos sitúa en la Venecia de 
este personaje. Tenemos que subir 
a los balcones de las damas por 
medio, no de cuerdas como sería 
lo normal, sino de espaguettis con 
tomate, de manera que lo normal 
es escurrirse y acabar contra el 
suelo o en un canal. Es un juego 
realmente cómico. En Little Devil 
el protagonista es un pequeño 
diablillo al que tenemos que 
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ayudar a cometer todas las 
travesuras que se nos ocurran 
para que no acabe convertido 
en un ángel, algo verdaderamente 
catastrófico para un diablo 
como él. 
Como se puede apreciar los 
temas son realmente variados, van 
de lo cómico a lo tétrico y de las 
aventuras en el futuro a las 
guerras del pasado. Sin embargo, 
continúa habiendo una mayoría 
de arcades sobre los demás tipos 
de juegos. 
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Livingstone supongo, 
primer juego para PC hecho en E
paña 


O pera Soft está terminando la 
versión para PCs de su 
mayor éxito: Livingston, supongo, 
que esperan terminar y sacar al 
mercado hacia finales de 
septiembre o principios de 
octubre. 
El juego está realizado con 
CGA, una de las opciones del PC, 
en el modo que da la posibilidad 
de tener cuatro colores en 
pantalla, aunque se está estudiando, 
para más adelante, utilizar el 
modo CGA de 16 colores. 
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ub
idiaria de Compaq en España 


C ompa q Computer Corporation 
ha creado en España una 
subsidiaria, Compaq Computer, 
S. A., que se encargará de 
comercializar la línea de 
ordenadores Compaq en nuestro 
país, todos ellos compatibles con 
los IBM PC. 
Hasta ahora, los productos de 
esta compañía se distribuían desde 
la sede en Alemania, a través de 
cinco distribuidores oficiales en 
las principales ciudades 
españolas. 
La razón de este cambio es, 
según Bruno Jeanroy, director de 
Ventas y Marketing de Compaq 
Computer, el rápido crecimiento 
de la demanda de ordenadores 
personales en España. Añadió que 
«el establecimiento de una 
subsidiaria española nos permitirá 
satisfacer mejor las necesidades de 
los usuarios, por medio de un 
servicio integral de formación, 
asistencia y apoyo técnico, para el 
creciente número de distribuidores 


oficiales que venden nuestros 
productos en España». 
Los ordenadores Compaq se 
venden en 40 países, a través de 
una red internacional de 3.000 
distribuidores y 
una serie de 
compañías 
subsidiarias (la 
nueva subsidiaria 
española es la 
sexta de Europa), 
con las que 
Compaq ha hecho 
un esfuerzo de 
inversiones. En 
u 
palabras de I 
Eckhard Pfeiffer, IJ 
vicepresidente de 
Operaciones 
Internacionales 
de Compaq, 
«continuamos 
incrementando el 
nivel de asistencia 
que ofrecemos a 
nuestros mercados 
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Por otra parte, parece que va ha 
convertirse en uno de los juegos 
más versionados de la historia del 
software. Además de las de Spectrum, 
Amstrad y MSX, ya existentes, 
se está trabajando en las de 
Commodore y Atari. En Gran 
Bretaña se ha creado ya la versión 
para el BBC Micro. Y, dentro de 
muy poco tiempo, los poseedores 
de un PC podrán disfrutar de este 
juego, del que se espera, por lo 
menos, tanta calidad como en las 
versiones anteriores. 
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internacionales, por medio del 
incremento de nuestras inversiones 
en varios países, en fabricación, 
compras y apoyo a nuestras 
subsidiarias» . 
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Hit Pak 


Z afi Chip ha sacado a la venta un 
paquete, Hit Pak, que incluye 
siete buenos juegos a un precio 
bastante atractivo: 1.750 pesetas 
la cinta y 2.750 el disco, en su 
versión para Amstrad. 
Los juegos que van en este 
paquete son: Scooby Doo, 
Antiriad, 1942, Duet, Split 
Personalities, Jet Set Wil/y II y 
Fighting Warriors, todos ellos 
recientes y algunos, como el 
Antiriad, de una calidad 
indiscutible. 


Oracle Profesional: 
má
 potencia 
relacional 
para ordenadores 
con 80286/80386 


O racle PC es un sistema de 
Gestión de Base de Datos 
Relacional para ordenadores 
personales, desarrollado por 
Oracle Corporation, del que se ha 
anunciado la creación de la 
versión 5, llamada Oracle 
Profesional. 
Entre las características más 
interesantes de esta nueva versión 
es la posibilidad de direccionaf 
más de 640 K de memoria RAM y 
corre bajo PC-DOS de IBM, y 
MS-DOS de Microsoft. Usando el 
modo protegido de los 
procesadores 80286/80386, el 
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programa direcciona l MB en la 
memoria extendida RAM, dejando 
512 Kbytes de memoria básica 
para que el usuario desarrolle 
y ejecute aplicaciones propias. 
Según Rob Rietveld, 
responsable de producto en el 
Área de Microordenadores de 
Oracle Europa, «el uso de 
memoria extendida por Oracle 
Profesional permitirá el desarrollo 
de aplicaciones para-grandes 
ordenadores en un PC». 
Esta nueva versión del sistema 
de Gestión de Base de Datos 
Relacionar (SGBDR) para PC, si 
se utiliza en el entorno SQL *Star, 
también creado por Oracle 
Corporation, permite al usuario 
de un 'PC integrarlo en red. Esta 
característica es especialmente útil 
para las empresas. La razón de 
esta posibilidad se encuentra én 
uno de los elementos del 
SQL*Star, el SQL*NET, que 
permite conexiones independientes 
de la red entre ordenadores 
diferentes, utilizando el interface 
Decnet de Digital como soporte 
de protocolos asincrónicos y 
conexión coaxial o remota 3270. 
Oracle Profesional incluye Las 
mismas herramientas que Oracle 
para minis y grandes ordenadores, 
y ofrece' importantes mejoras en el 
rendimiento de las funciones 
relacionales más complejas, como 
las combinaciones múltiples de 
tablas y operaciones que 
impliquen clasificación. Sin 
embargo, y gracias al 
SQL *Forms, otro de los 
elementos del entorno SQL *Star, 
los usuarios de PCs, que no sean 
informáticos, pueden realizar 
aplicaciones de forma sencilla y 
rápida, a través de menús muy 
sencillos y herramientas muy 
potentes en el diseño de pantallas. 


.... 


Iri, 
Sistema inte1!rad4 
de ge
tion 
L os programadores que forman 
Seresco Asturiana, S. A., deben 
pensar, de manera muy lógica, 
por otra parte, que es más 
apropiado tener en una empresa 
los programas necesarios para su 
gestión de una manera integrada, 
que tener que ir comprándolos de 
manera suelta cada uno de ellos. 
Su paquete Iris, destinado al PC y 
sus compatibles, sigue este 
razonamiento y cuenta con tres 
subsistemas, dedicados cada uno 
de ellos a estas funciones: 
-Contable. Consta de los 
módulos de contabilidad general, 
presupuestaria y control de 
cuentas de terceros. 
-Almacén. Está formado por 
los módulos de compras y control 
de stocks. 
-Comercial. Regula la 
facturación y los pedidos. 
El paquete Iris está garantizado 
siempre en su funcionamiento y la 
compañía creadora cuenta con un 
equipo de soporte de clientes para 
la puesta en marcha de su 
producto. También poseen un Hot 
Une telefónico de respuesta 
a cualquier pregunta o cuestión, 
a cerca del Iris. 
Para más información llamar 
al teléfono de Asturias (985) 
23 7431. 
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En un tiempo en que el honor era reverenciado, en el que la gracia y la belleza eran virtudes, una,raza 
especial de guerreros se apartaron de todo para dedicar sus vidas a hacer del combate una forma 
de arte y una disciplina de la mente que se convirtió en su religión. Conseguir tal grado de perfección 
requería una destreza r autodisciplina tal, que solo unos pocos elegidos conseguian el título de 
"Señor de la Guerra". KENDO, KARATE y finalmente SMIURAI eran las pruebas 
ue había que superar antes ( ue tal honor fuese concedido. 
'
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..... utilidades 


Cargador Universal 


Por Daniel Calvo 


Los errores, al teclear un programa, son tan 
frecuentes como molestos, especialmente si están 
escritos en Código Máquina. Como solución 
proponemos este Cargador Universal, con el que 
cualquiera puede tener los programas publicados en 
nuestra revista en forma de datas, sin que se 
produzcan los desagradables errores. 


U no de los mayores 
problemas a la hora de 
copiar un programa de una 
revista, son los errores que 
en este paso se producen. Si 
encima añadimos que el programa 
está escrito en Código Máquina, 
estos errores se multiplican por 
10, la mayoría inexplicables para 
los no expertos en el tema. 
Para evitar en lo posible que 
estos errores y cuelgues del 
ordenador, sean causa de 
suicidios, os presentamos este 
programa, con el que se reducirá 
el número de errores a cotas 
mínimas. 
A partir de ahora, todos los 
programas en Código Máquina 
publicados en la revista se 
ajustarán al formato de este 
programa, el cual es el siguiente: 
primero, la dirección inicial de 
carga del programa, seguido del 
programa dividido en líneas de 24 
caracteres, que no hace falta 
separados ni con comas ni con 
espacios, y su correspondiente 
suma de control, que es la suma 
de los bytes de la línea. 
Una vez que tengamos el 
programa que queremos copiar en 
nuestras manos, deberemos 
ejecutar el cargador que os 
presentamos y elegir la primera 
opción. A la pregunta de 
Dirección de Comienzo, 
deberemos introducir el valor que 
figurará en la cabecera del listado 
del programa acopiar. 
Una ves superado este requisito, 
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PROGRAMA EJEMPLO 


DIRECCJON DE CD!IENID..AOoo 


1 2185A11140003E2CCDAIBCCD,4F9 
2 6CBB212CAI0609CDEDA021B5,524 
3 AI060FCDEDA03EOACDSABB3E,578 
4 ODCDSABB215BAI0607CDEDAO,573 
5 3A97AIFS£606FE00CAF5AOFE,7AE 
6 02CAOOAIFE04CAOBAIFE06CA,5B3 
7 16AIFIE601FEOICA21A13EOA,562 
B CD5ABB3EODCD5ABB2162AI06,539 
9 OBCDEBA03A95AIF5D60A380F,5Fl 
10 3E31CD5ABBFID60AC63OCDSA,63F 
I! BBIB06F1C630CD5ABB3EOACD,5B7 
!2 5ABB3EODCD5ABB216DAI06OC,4B3 
13 CDEDA02A98AICDA4A02179Al,709 
14 060CCDEDA02A9AAI37111027,450 
15 233E2F3CED5230FBCDE2A011,596 
16 EB033CED5230FBCDE2A01164,655 
17 003CED5230FBCDE2A0110A00,510 
lB 3CED5230FBCDE2AOB5CDE2AO,7C9 


19 3EOACDSABB3EODC3SABBCDSA,574 
20 BB3E2F2001231923C97ECDSA,416 
21 BB2310F9C92135AI0606CDED,56D 
22 AOC34AA0213BAI060BCDEDAO,5B2 
23 C34AA02143AI0609CDEDAOC3,5DE 
24 4AA0214CAI0606CDEDA0C34A,56B 
25 A02152AI0609CDEDA0C352AO,5D2 
26 4E4F4D425245203A20424153,313 
27 49432042494E4152494F2050,320 . 
2B 414E54414&4&412041534349,33D 
29 492050524F54454749444F54,36A 
30 49504F203A204E2E424C4F51,30C 
31 5545203A204C4F4E2E444154,304 
32 4F53203A2044495245434349,30F 
33 4F4E203A2000000000000000,117 
34 000000000000000000000000,000 
35 000000000000000000000000,000 
36 000060000000000000000000,000 
37 000000000000000000000000,000 
38 000000000000000000000000,000 


nos encontraremos en una 
pantalla con tres ventanas y a la 
vez, una de ellas dividida en dos 
por una raya verde, y el número 
de la línea de texto en la que nos 
encontramos. Con esto el 
programa nos quiere indicar que 
está a la espera de datos. 
Si al copiar alguna de las líneas 
del listado la longitud de la misma 
es inferior o superior a los 24 
caracteres, el programa nos 
obsequiará con un mensaje de 
error, ignorando la línea y 
obligándonos a volver a 
introducida. 
Un error común es la inserción 
de caracteres no hexadecimales 
como si lo fuesen, como por 
ejemplo, una O por un O. Este 
error también es detectado por el 
programa, y nos mostrará el 
dígito en el que hemos cometido 
el error en vídeo inverso, con lo 
que nos indica que ese carácter no 
es válido, y espera a que 


CARGADOR UNIVERSAL 


. 


10 RE" CAR6ADOR UNIVERSAL 
20 REPI 5/6/87 
30 RE" DANIEL CALVO 
40 "E"ORY &2FFF:DEFINT A-Z:SPEED WR 
HE 1 
SO 60SUB 1150:RE" CODI60 "AQUINA 
60 "ODE I:INK O,O:INK 1,26:INK 2,14 
:INK 3,18:BORDER O 
70 LOCATE 12,5:PRINT '1.- INTRODUCI 
R' 
80 LOCATE 12,7:PRINT '2.- LISTADOS' 
90 LOCATE 12,9:PRINT '3.- SALVAR BI 
HARIO' 
100 LOCATE 12,II:PRINT '4,- SALVAR 
BASIC' 
110 LOCA TE 12,13:PRINT '5.- CAR6AR 
BINARIO' 
120 LOCA TE 12,15:PRINT '6.- CAR6AR 
BASIC' 
130 LOCATE 14,20:PRINT 'ELI6E OPCIO 
N' 
140 K$=INKEY$:IF K$=
' THEN 140 ELS 
E IF ASC(K$)(49 OR ASC(K$»54 THEN 
140 
150 ON VAL(K$) 60SUB 170,440,610,66 
0,900,950 
160 60TO 60 
170 IF NOW()O THEN 200 
180 "ODE I:INPUT 'DIRECCION DE CO"I 
ENZO ',BE6IN 
190 IF BE6IN(-32768 OR BE6IN)32767 
THEN 180 ELSE NOW=&5000:LON=0:AUT=1 
200 "ODE I:WINDOW 11,I,40,I,I:PAPER 
11,I:PEN 'I,O:CLS 11:WINDDW 1,40,2 


,24:WINDOW 12,I,40,25,25:PAPER 12,2 
:PEN 12,O:CLS 12 
210 PRINT 11,TAB(10)'DATOS'TAB(32)' 
SUMo 
220 PLOT 448,16,3:DRAWR O,366:L=1 
230 LOCATE I,L:PRINT USING 'III';AU 
T;:INPUT · ',A$:IF A$=" THEN RETUR 
N ELSE A$=UPPER$(A$):LOCATE 5,L:PRI 
NT A$ 
240 CHECKSU"=O 
250 IF LEN(A$)()24 THEN PRINT 12,TA 
B(12)'LON6ITUD ERRONEA';CHR$(7):LOC 
ATE I,L:PRINT SPACE$(40):PLOT 448,1 
6,3:DRAWR O,366:FOR T=1 TO 500:NEXT 
:PRINT 12:60TO 230 
260 FOR X=1 TO 24:P$="ID$(A$,I,I) 
270 IF (P$('O' OR P$)'9') ANO (P$(' 
A' OR P$)'F') THEN 60SUB 410 
280 IF (X "OD 2)=0 THEN CHECKSU"=CH 
ECKSU"+VAL('&'+"ID$(A$,X-l,2» 
290 NEXT 
300 LOCATE 32,L:INPUT ')',CHECK$:IF 
CHECK$=" THEN CHECK$='O' ELSE CHE 
CK$=UPPER$(CHECK$):LOCATE 33,L:PRIN 
T CHECK$ 
310 FOR X=1 TO LEN(CHECK$):P$="ID$( 
CHECU, X , 1> 
320 IF (P$('O' OR P$)'9') ANO (P$(' 
A' OR P$)'F') THEN PRINT 12,TAB(7)' 
CARACTERES NO HEXADECI"ALES';CHR$(7 
):FOR T=1 TO 500:NEXT:LOCATE 32,L:P 
RINT SPACE$(S):PRINT .2:6OTO 300 
330 NEXT 
340 CHECK=VAL('&'+CHECK$):IF CHECK( 


)CHECKSU" THEN PRINT 12,TAB(13)'SU" 
A INCORRECTA';CHR$(7):FOR T=1 TQ 50 
O:NEXT:LOCATE I,L:PRINT SPACE$(40): 
PLOT 448,16,3:DRAWR 0,366:PRINT .2: 
60TO 230 
350 FOR 1=1 TO 24 STEP 2 
360 BYTE=VAL('&'+"ID$(A$,X,2» 
370 POKE NOW,BYTE:NOW=NOW+l:LON=LDN 
+1 
380 NEXT 
390 AUT=AUT+l 
400 L=L+l:IF L=24 THEN CLS:60TO 220 
ELSE 230 
410 LOCATE X+4,L:PRINT CHR$(24);P$; 
CHR$(24) 
420 K$=INKEY$:IF K$=" THEN 420 
430 IF (K$('O' OR K$)'9') AND (K$(' 
A' OR K$)'F') THEN 420 ELSE LOCATE 
X+4,L:PEN I:PRINT K$:"ID$(A$,X,I)=K 
$:RETURN 
440 RE" LISTADOS 
450 IF NOW=O THEN RETURN 
460 CLS:LOCATE 8,II:PRINT '[';:PEN 
3:PRINT 'P';:PEN I:PRINT ']ANTALLA 
° [';:PEN 3:PRINT 'I';:PEN I:PRINT 
']"PRESORA' 
470 K$=UPPER$(INKEY$):IF K$=" OR N 
OT(K$='P' OR K$='I') THEN 470 
480 IF K$='I' THEN CH=8 ELSE CH=O 
490 LIN=I:CLS:PRINT ICH,'OIRECCION 
DE CO"IENZO. . ';HEX$(BE6IN,4):PRINT 
ICH 
500 FOR 1=&5000 TO NOW-l STEP 12 
510 CHECKSU"=O:PRINT ICH,USIN6 "" 
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introduzcamos el verdadero. 
Una vez superadas con éxito 
todas las comprobaciones, nos 
preguntará por el valor de la 
suma de control, es decir, la suma 
de los datos tomados de dos en 
dos (un byte), y en caso de que 
ésta no coincida con la elaborada 
por el programa, nos avisará con 
" un mensaje de error, debiendo 
volver a introducir de nuevo la 
línea. 
Una vez terminado de 
introducir las líneas o 
simplemente, queremos dejarlo 
para más tarde, pero sin perder lo 
introducido hasta el momento, 
deberemos contestar con Enter a 
la primera pregunta, con lo que 
regresaremos al menú principal y 
podremos salvarlo. 
Ésta es la forma de utilizar la 
primera opción del listado, pero 
también disponemos de otras 
cinco opciones. 
La segunda de ella nos 
producirá un listado de lo 
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Con este programa los errores 
de "tecleo" en programas 
integrados por ' 'datos", 
quedan reducidos a cero. 


introducido hasta el momento, 
pudiendo elegir si lo queremos 
por pantalla o por impresora, 
respondiendo a la pregunta con la 
inicial de la opción elegida. 
Las otras cuatro se encargan de 
cargar o salvar los datos en cinta, 
siendo la única diferencia el 
formato en que queramos 
tenerlos, ya sea en un programa 
cargador en Basic o en Binario. 
Si elegimos la opción de 
salvarlo en Binario, sólo 


deberemos darle al ordenador el 
nombre con el que lo queremos 
almacenar, pues el programa ya 
tiene su dirección inicial, la 
longitud la ha ido calculando 
durante el proceso de introducción 
de datos. 
Si por el contrario decidimos 
salvarlo en Basic el programa se 
encargará de generar 
automáticamente un programa 
cargador, y los datos los incluirá 
en líneas Data. 


CARGADOR UNIVERSAL (Continuación) 


';LIN¡:PRINT ICH,' '; 
520 FOR y=o TO 11 
530 PRINT ICH,HEXS(PEEK(X+Y),2)¡ 
540 CHECKSU"=CHECKSU"+PEEK(X+Y) 
550 NEXT 
560 PRINT ICH,',';HEXS(CHECKSU",3) 
570 LlN=LlN+1 
580 NUT 
S90 PRINT 'PULSA UNA TECLA' 
600 WHILE INKEYS=":WEND:RETURN 
610 RE" SALVAR EN BINAR 10 
620 IF NOW=O THEN RETURN 
630 CLS:LOCATE 6,1J:INPUT 'NO"BRE o 
EL FICHERO ',NO"$ 
640 SAVE NOMS,B,&5000,LON 
6S0 RETURN 
660 RE" SALVAR EN BASIC 
670 IF NDW=O THEN RETURN 
680 CLS:LOCATE 6, 10: INPUT 'NOMBRE D 
EL FICHERO ',NO"S 
690 LlN=200 
700 OPENOUT NO"$ 
710 PRINT '9,'10 RE" PROGRA"A CARGA 
DOR' 
720 PRINT 19,'20 FOR X=&'¡HEXS(BEGI 
N,4);' TO &'¡HEXS(BE6IN+LON-1,4);' 
STEP 12' 
730 PRINT 19,'30 REAO LINS,CHECKS:C 
HECKSU"=O' 
140 PRINT 19,'40 FOR Y=1 TO 24 STEP 
2' 
750 PRINT 19,'SO BYTE=VAL('+CHRS(34 
)+'&'+CHRS(34)+'+"10$(LINS,Y,2»' 


760 PRINT 19,'60 CHECKSU"=CHECKSU"+ 
BYTE' 
770 PRINT '9,'70 POKE X+Y/2,BYTE' 
780 PRINT 19,'80 NEXT' 
790 PRINT '9,'90 IF CHECKSU"<>VAL(' 
+CHRS(34)+'&'+CHR$(34)+'+CHECK$) TH 
EN PRINT '+CHRS(34)+'ERROR'+CHRS(34 
)+':END' 
800 PRINT '9,'100 NEXT:ENO' 
810 FOR X=&5000 TO NOW-1 STEP 12 
820 CHECKSU"=O:PRINT 19,5TR$(LIN);' 
DATA '; 
830 FOR Y=O TO 11 
840 PRINT 19,HEXS(PEEK(X+Y),2); 
8S0 CHECKSU"=CHECKSU"+PEEK(X+Y) 
860 NEXT 
870 PRINT 19,',';HEXS(CHECKSU",3) 
880 LIN=LIN+10:NEXT 
890 CLOSEOUT:RETURN 
900 RE" CARGAR EN BINARIO 
910 CLS:LOCATE 6,10:INPUT 'NO"BRE o 
EL FICHERO ',NO"S:NO"S=UPPERS(NO"S) 
:IF NO"S=" THEN 910 
920 BE6IN=0:LON=0:CALL &3000,tNO"S, 
tBEGIN, tLON: NOW=&SOOO+LON 
930 AUT=INT(LON/12)+1 
940 RETURN 
9S0 REM CARGAR EN BASIC 
960 CLS:LOCATE 6, 10: INPUT 'NOMBRE D 
EL FICHERO ',NO"S:AUT=1 
970 OPENIN NO"S 
980 LINE INPUT 19,AS 
990 LINE INPUT 19,AS:A=INSTR(AS,'&' 


):BEGIN=VAL('&'+"IOS(AS,A+1,4» 
1000 NOW=&SOOO:LON=O 
1010 WHILE INSTR(AS,'NEXT:END')=O 
1020 LINE INPUT 19,AS 
1030 WEND 
1040 WHILE NOT EOF 
10S0 LINE INPUT 19,AS 
1060 A=INSTR(AS,'OATA'):A=A+S 
1070 DATOS="IDS(AS,A,24) 
1080 FOR X=1 TO 24 STEP 2 
1090 POKE NOW,VAL('&'+"IDS(DATDS,X, 
2»:LON=LON+1:NOW=NDW+1 
11 00 NEXT 
1110 AUT=AUT+1 
1120 WEND 
1130 CLOSE I N 
1 140 RETURN 
I1S0 REM C/" 
1160 FOR X =&3000 TD &3032 
1170 REAO AS:POKE X,VAL('&'+AS) 
1180 NEXT:RETURN 
1190 OATA OD,6E,OO,OO,66,01,ES,OO,6 
E,02,DO,66,03,ES,OD,6E,04,DD,66,05, 
7E,23,5E,23,56 
1200 DATA EB,47,11,70,30,CO,77,BC,E 
1,73,23,72,E1,71,23,70,21,00,50,CD, 
83,BC,CO,7A,BC,C9 
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También podemos recuperar los 
datos para poder continuar con su 
inserción. A tal efecto disponemos 
de otras dos opciones 
dependiendo del formato en que 
hayan sido grabados. Si fue Basic, 
deberemos elegir la última opción, 
y darle al programa el nombre 
con el que fue archivado en cinta, 
y él se encargará de buscar en el 
fichero los datos que necesita. . 
En el caso de que queramos 
recuperar un programa salvado en 
forma binaria, al igual que en 
Basic, sólo será necesario su 
nombre, pues el programa leerá la 
cabecera y obtendrá su dirección 
inicial y longitud, por lo que se 
evita el tener que recordar estos 
datos, que normalmente se suelen 
olvidar fácilmente. 
A modo de ejemplo, os damos 
una rutina lectora de cabeceras, 
que averiguará la dirección de 
comienzo y la longitud de un 
programa, además de su nombre 
y número de bloque, y nos los 
mostrará en pantalla. Por último, 
para poder utilizar esta rutina, 
deberéis llamarla con Call &A000. 
Esto es todo, esperando que no 
se vuelvan a producir errores a la 
hora de copiar un programa en 
Código Máquina. . 
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Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible. una 
de las denominaciones siguientes: 



 


- Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petición 
de cintas, números atrasados, formalización de suscripciones, devoluciones. etc 
- Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 
- Serie Oro AMSTRAD. Para los programas que nos enviéis para su 
publicación. 
- Sugerencias AMSTRAD. Para vuestras críticas, sugerencias o cualquier 
opinión que queráis vertir sobre la revista. 
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El programa que hoy proponemos desde esta 
artística sección le va a permitir obtener 
hermosas representaciones de montañas, 
utilizando para ello un complejo algoritmo muy 
conocido y usado en el cine de fantasía e 
imaginación. 


La geometría frac tal pertenece a una de 
esas extrañas ramas matemáticas cuyo 
cometido roza lo incomprensible. Su 
fundamento básico es el estudio de unas 
curvas (variedades, dirían los puristas) que se 
encuentran más allá del mundo 
unidimensional de las líneas, pero que no 
alcanzan la bidimensionalidad de las 
superficies; de ahí su cabalístico nombre, 
fractal, y que pretende explicar la dimensión 
fraccionaria de su naturaleza. 
Una de las aplicaciones que los no 
matemáticos supieron encontrarle a estas 
teorías fue la elaboración de asombrosas 
montañas, y fue precisamente Lucas Film, 
famosa compañía dedicada a la realización de 
películas con grandes efectos especiales, quien 
desarrolló el proceso que formaría muchas de 
las montañas que aparecen en sus fantásticos 
paisajes. 
Naturalente, no podemos pretender que en 
nuestro pequeño CPC o incluso en nuestro 
PC 1512, vayan a producirse imágenes 
excesivamente realistas. La necesidad de 
grandes resoluciones, paletas de color muy 
amplias y elevadas capacidades de cálculo y 
memoria, relegan este tipo de aplicaciones al 
terreno de los grandes ordenadores, que 
quedan muy lejos de nuestras capacidades. 
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No obstante, lo que sí podremos es obtener 
una aproximación de estos sorprendentes 
resultados en el monitor de nuestro equipo, y 
sobre todo y lo que es más importante, 
aprenderemos la forma en la que se realizan. 
El proceso de formación de la montaña se 
fundamenta principalmente en la 
transformación de un triángulo, del cual 
generaremos cuatro nuevos triángulos, de cada 
uno de los cuales generaremos cuatro nuevos 
triángulos, y así sucesivamente. En la imagen 
que ilustra la fase 1 podemos apreciar el 
triángulo con el que comenzaremos a trabajar. 
Lo primero que va hacer nuestro programa es 
calcular los puntos medios de 


FASE 1 
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cada lado. Posteriormente movemos este 
punto medio en la vertical, en un factor 
proporcional a la longitud del lado. De esta 
forma obtendremos tres puntos, que junto a 
los tres vértices del viejo triángulo van a 
formar cuatro nuevos triángulos, como 
puede apreciarse en la imagen de la fase 2. En 
este caso en particular, el incremento ha sido 
negativo y por eso los puntos medios han bajado. 
Si a cada uno de estos cuatro triángulos le 
aplicásemos el proceso anteriormente descrito, 
lo que obtendríamos es algo parecido a lo que 
se muestra en la fase 3. 
Según aumenta la fase, iremos obteniendo 
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cada vez un mayor numero de triángulos, y la 
perfección de nuestra montaña y su realismo 
será también cada vez mayor. 
En nuestro caso particular, tanto en la 
versión CPC como en la versión PC, 
alcanzamos una profundidad de seis niveles. 
Dado que comenzamos con un triángulo, el 
número final de triángulo que tendremos será 
de 1 x 4 x 4 x 4 x 4 x 4 , lo que supone 
exactamente la cifra de 1.024 triángulos. Y 
para el caso de que queramos profundizar un 
nivel más, la cifra sería ya de 4.096. 


FASE 3 


'\ 


La forma en la que nuestro programa, en 
ambas versiones, almacena los triángulos es 
muy simple. Para ello utilizamos dos matrices, 
VX y BY, de 1.200 por 3. En VX 
almacenamos las coordenadas X de los tres 
vértices y en BY las coordenadas Y. 
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FRACTALES PARA PC 1512 


lO RANDO"IZE 
IIIIINDOI/ OPEN 
121/INDDII rULl 
20 DI" Ix(3),ly(3),vx(1200,3),by(1200,3) 
40 vx(I,I)=1000:by(l,l)=500 
50 vx(I,2)=4000:by(l,2)=4500 
60 vx(l,3)=7000:by(l,3)=500 
70 n=1:pun=2 
80 CLS 
BlrDR k=l TO 5 
82 rOR n=l TO pun-l 
90 RE" calcula nuevos triangulos 
110 iner= O,4fRND-0.15 
120 ly(I)=«by(n,I)+by(n,2»/2)+iner f 
(SQR«(vx(n,I)-vx(n,2»A2)+(by(n,I)-by(n,2»A2» 
130 Ix(1)=(vx(n,l)+vx(n,2»/2 
140 ly(2)=«by(n,2)+by(n,3»/2)+iner f 
(S9R«(yx(n,2)-yx(n,3»A2)+(by(n,2)-by(n,3»A2» 
150 Ix(2)=(yx(n,2)+yx(n,3»/2 
160 ay(3)=«by(n,3)+by(n,l»/2)+incr f 
(SQR«(yx(n,3)-vx(n,1»A2)+(by(n,3)-by(n,1»A2» 
170Ix(3)=(vx(n,3J+vx(n,I»/2 
180 RE" sustituye triangulo n por los tres nuevos 
190 vx(pun,I)=lx(l):by(pun,l)=ly(l) 
200 vx(pun,2)=vx(n,2):by(pun,2)=by(n,2) 
210 vx(pun,3)=lx(2):by(pun,3)=ly(2) 
220 pun=pun+1 
230 vx(pun,1)=lx(3):by(pun,l)=ly(3) 
240 vx(pun,2)=lx(2):by(pun,2)=ly(2) 
250 vx(pun,3)=yx(n,3):by(pun,3)=by(n,3) 
260 pun=pun+1 
270 vx(pun,l)=lx(3):by(pun,I)=ly(3) 
280 vx(pun,2)=lx(I):by(pun,2)=ly(l) 
290 v
(pun,3)=lx(2):by(pun,3)=.y(2) 
300 pun=pun+l 
310 vx(n,I)=vx(n,I):by(n,l)=by(n,l) 
320 vx(n,2)=lx(1):by(n,2)=ly(1) 
330 vx(n,3)=lx(3):by(n,3)=ly(3) 
331 NEXT n 
332 NEXT k 
340 RE" dibuja triangulos 
350 RE" ----------------- 
360 rOR 1=1 TO pun-l 
370 LIME vX(I,I)¡bY(I,I),vx(I,2)¡bY(I,2) 
380 lIME vX(I,2)¡bY(I,2),vx(I,3)¡bY(I,3) 
390 LINE vX(I,I)¡bY(I,I),vx(I,3)jbY(I,3) 
400 MEXT 
410 SOTO 410 
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Para realizar la transformación lo que 
hacemos es coger los puntos medios de cada 
triángulo y les aplicamos un incremento 
aleatorio, extraído en la línea 110 del 
programa. En nuestro programa hemos dado 
unos valores comprendidos entre -0.15 y 
0.25, para la versión PC y entre -0.15 y 0.15 


FRACTALES PARA CPC 


1 DEFINT b 
2 INK 0,1 :INK l,26:PEN O:PAPER 1 
10 RANDOMIZE TIME 
20 DIM MX(3),MV(3),VX(1200,3),BV(1200,3) 
30 MODE 2 
40 VX(l,l)= 50 :BV(l,l)
40 
50 VX(l,2)=275:BV(l,2)=180 
60 VX(1,3)=550:BV(l,3)=40 
70 N=1:PUN=2 
80 CLS 
81 FOR K=l 10 5 
82 FOR N=l TO PUN-l 
90 REM calcula nuevos triangulos 
100 REM sustituye triangulo n por los tr 
es nuevos 
110 INCR= RND*0.3-0.15 
120 MV(1)=«BV(N,1)+BV(N,2»/2)+INCR*(SQ 
R«(VX(N,l)-VX(N,2»A2)+(BV(N,l)-BV(N,2) 
j A 2» 
130 MX(1)=(VX(N,l)+VX(N,2»/2 
140 MV(2)=«BV(N,2)+BV(N,3»/2j+INCR*(SQ 
R«(VX(N,2)-VX(N,3»A2)+(BV(N,2)-BV(N,3) 
) A2» 
150 MX(2)=(VX(N,2)+VX(N,3»/2 
160 MV(3)=«BV(N,3)+BV(N,l»/2)+INCR*(SQ 
R«(VX(N,3)-VX(N,l»A2)+(BV(N,3)-BV(N,l) 
) A2» 
170 MX(3)=(VX(N,3)+VX(N,l»/2 
180 REM sustituye triangulo n por los tr 
es nuevos 
190 VX(PUN,l)=MX(l):BV(PUN,l)=MV(l) 
200 VX(PUN,2)=VX(N,2):BV(PUN,2)=BV(N,2) 
210 VX(PUN,3)=MX(2):BV(PUN,3)=MV(2) 
220 PUN=PUN+l 
230 VX(PUN,1)=MX(3):BV(PUN,l)=MV(3) 
240 VX(PUN,2)=MX(2):BV(PUN,2)=MY(2) 
250 VX(PUN,3)=VX(N,3):BV(PuN,3>=BV(N,3) 
260 PUN=PUN+l 
270 VX(PUN,1)=MX(3):BV(PUN,1)=MV(3) 
280 VX(PUN,2)=MX(1):BV(PUN,2)=MV(1) 
290 VX(PUN,3)=MX(2):BV(PUN,3)=MV(2) 
300 PUN=PUN+l 
310 VX(N,l)=VX(N,l):BV(N,l)=BV(N,l) 
320 VX(N,2)=MX(1):BV(N,2)=MV(1) 
330 VX(N,3)=MX(3):BV(N,3)=MV(3) 
331 NEXT N 
332 NEXT K 
340 REM dibuja triangul05 
350 REM ----------------- 
360 FOR M=l TO PUN-l 
370 PLOT VX(M,l),2*BV(M,1):DRAW VX(M,2) 
,2*BV(M,2),O 
380 DRAW VX(M,3),2*BV(M,3) 
390 DRAW VX(M,1),2*BV(M,l) 
400 NEXT 
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para la versión CPC. Nótese que estos valores 
permanecen constantes en cada triángulo, y se 
emplean para modificar los puntos medios de 
cada uno de los lados. 
Una vez que obtenemos estos nuevos 
puntos, los incluimos en nuestro array, 
sustituyendo el viejo triángulo, que ya no nos 
sirve para nada, por el nuevo, por uno de los 
generados, y poniendo el resto al principio de 
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lo que nos queda libre del array. 
Una vez que hemos realizado la 
transformación de todos los triángulos, 
comenzamos de nuevo la tarea, y así hasta 
cinco veces que son controladas por el bucle 
de la línea 81 a 332. 
El bucle final es el encargado de pintar 
todos los triángulos en la pantalla, formando 
de esta manera una montaña aleatoria, más o 
menos convincente. 
Existen varios parámetros que pueden ser 
modificados, y con los que obtendremos 
resultados totalmente distintos, que se prestan 
a ser experimentados. Lo primero que 
podemos cambiar el es triángulo inicial. Para 
ello deberemos modificar los valores de las 
líneas 40, 50 y 60. La profundidad es otro de 
los valores que podremos alterar variando la 
constante (5) del bucle por un valor más bajo, 
ya que no hay memoria para más. Por último, 
podremos variar el intervalo del incremento, 
modificando los valores de la línea 110. 
El resultado de todo esto no es una 
variedad fractal, pero si nuestro ordenador 
fuese capaz de realizar esta tarea infinitas 
veces y nosotros la paciencia, la enorme 
paciencia de esperarle, lo obtenido sí que 
sería una variedad de estas características. 
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POCO RUIDO, MUCHAS NUECES 



No se alarme 


por Roberto Aya 
NUESTRO amigo Roberto nos 
envía un sencillísimo truco, a la 
vez que útil. Una alarma que el 
ordenador emite cuando se mueve 
el joystick. Ideal pafa ladrones 
«jugones», amigos pelmazos y 
demás personal que posee la 
envidiable cualidad de 
interrumpimos con el famoso 
«asunto importante» en aquellos 
momentos algidos en los que el 
byte y servidor son uno con el 
Cosmos. 


10 REM ALARMA 
20 REM POR ROBERTO AYA 
30 REM 
40 CLS: INK O,O:PAPER O:BOROER O 
SO IF JOY<O>OO THEN GOTO 60 ELSE OOTO 40 
60 ENT 1,2.17.70 
70 SOIJNO 1,71,140,15..1 
80 GOTO 60 
90 ENO 


¿Le suena? 
por Fernando Muñoz Maqueda 
LA cosa va de alarmas pOf 
ordenador, por si a alguien le 
suena, pero con circuito incluido. 
El nivel de sofisticación se va 
haciendo mayor. Muy a grandes 
rasgos, la línea 120 del programa 
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actúa como un pequeño 
temporizador. El bucle tarda unos 
tres minutos en ejecutarse. Tras 
este lapso, cualquier intento de 
abrir la puerta se traducirá en un 
monumental escándalo organizado 
por el Amstradcerbero. Salvo en 
el improbable caso de un caco 
sordo, cuyo minusválido percal, 
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sin duda nos impeliría a hacerle 
donación de cualquier enser que 
tuviera a bien llevarse, el infarto 
de miocardio del latrocinador es 
cosa hecha. En fin, y en honor 
del llorado marqués de Sade, de 
gloriosa memoria, ¿qué tal si 
encima le diera corriente? Cacos 
no, gracias. 


lO REM ALARMA DE CASA 
20 POR FERNANDO MAQUEDA 
30 REM 
40 REM RETARDO 
50 FOR a=1 TO 180000:NEXT 
60 REM FUNCIONAMIENTO 
70 "ODE I:INK O,O:BORDER O:INK 
LO 
80 PRINT JOYC1J 
90 I F JOY (1) =0 THEN 60SUB 11 O 
100 IF JOY(!)=I THEN MODE 2:60 
TO 70 
110 MOOE O:INK 1,20:INK 2,6:IN 


K 3,0,6 
120 PEN 3:LOCATE 3,5:PRINT "AT 
ENCION" 
130 PEN I:LOCATE 7,10:PRINT "P 
UERTA":LOCATE 7,15:PRINT"ABIER 
TA" 
140 PEN 2:LOCATE 3,20:PRINT "L 
ADRONES' 
!50 ENT -9,20,10,I,20,-10.l:S0 
UNO 1,1.1000,15,,9 
!60 PEN 2:LOCATE 3,20:PRINT "L 
AORONES" 
170 GOTO 150 


Cómo encontrar a 
los primos 


por Jaime Saura 
LOS avispados negociantes, 
tiburones de Wall Street y demás 
émulos de Curro ]iménez mejor 
que no sigan leyendo. Esto es un 
programa para encontrar números 
primos contenidos entre un fango 


determinado y va muy deprisa. Su 
autor nos explica por qué. 
Vamos a suponer que nuestro 
margen de números es del 250 en 
adelante. Sacaremos la raíz 
cuadrada: da 15,8113, que no es 
impar exacto. Acto seguido, 
cogeríamos el impar superior, el 
17, Y lo sustituimos por el 13 que 
hay en la línea 70. Si el límite 
inferior es, por ejemplo 529, cuya 
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raíz cuadrada sí es impar exacto, 
y vale 23, bastaría con colocar en 
el mismo sitio que en el caso 
anterior dicho número. Para 
hacerse una idea del aumento de 
velocidad que la receta consigue, 
lo mejor es hacerlo y luego repetir 
el proceso sin la sustitución. 


I 
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I 
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I 
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10 OEFINT a-z 
20 CLS:INPUT "Limite inferior" 
¡inf:IF inf(l THEN 20 
30 CLS:INPUT "Limite superior" 
¡sup:IF sup(inf THEN 30 
40 DIII prim(SOOO):IF inf=1 THE . 
N prim(lJ=1:nulprim=1:inf=2:IF 
sup=l THEN 90 
50 IF inf=2 THEN numprlm=numpr 
im+l:prim(numprimJ=2:IF sup=2 
THEN 90 
60 IF inf 1100 2=0 THEN inf=inf 
+1 
70 FOR este=inf TO sup STEP 2: 
FOR impar=3 TO este/13 STEP 2: 
IF este 1100 impar=O THEN 80 EL 
SE NEXT:nulprim=nulprim+l:pril 
(numprimJ=este 


I 


Grado a grado 


por Víctor Díaz 
ESTE programa no tiene vuelta 
de hoja. Realiza las conversiones 
pertinentes entre cuatro sistemas 
de medir la temperatura distintos. 
Ideal para suicidarse cuatro veces 
durante las calinas de agosto. 
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BO NEXT este 
90 i=O:FOR lista=l TO nUlpril: 
creo=prim(iista):IF creo=9 OR 
creo=15 OR creo=21 OR creo=25 
OR creo=27 OR creo=33 OR creo= 
35 OR creo=49 OR creo=55 OR cr 
eo=77 OR creo=121 THEN 110 
100 i=i+l:PRINT"Primo numero"¡ 
i¡":"¡creo:IF i 1100 24=0 THEN 
PRINT"pulsa una tecla":CALL LB 
B06:CLS " 
110 NEXT:CALL &BB06:60TO 90 


Scrrroll 


por Lucio Fernández Arias 
CASI se oye el chirrido de los 
bytes arrastrándose por la pantalla 
cuando el ordenador 
trabajosamente ejecuta este 
programa. Por ello, creemos que 
el título está justificado. Es una 
prueba más de lo que el 


10 1100E 2 
20 LOCATE 20,10: PRINT"lIenu" 
30 LOCATE 20,II:PRINT"Tec!ee:" 
40 LOCATE 2O,12:PRINT"I-Equiva 
lene ia entre grados eentigrado 
s,Reuour,Farenheit,Kelvin pos 
i tivos" 
SO LDCATE 20,13:PRINT"I-Equiva 
lene ia entre grados centigrado 
s,Realour,Farenheit,Kelvin neg 
ativos" 
60 LOCATE 20,16: INPUT "Ope ion 
elegida (I-2)"jn 
70 ON n 60SUB 90, IBO 
80 CLS:60TD 10 
90 FOR c=O TO 1000 
100 PRINT "CentigradosURealou 
rUFarenhei tUKelvin 
110 r=80*e/100 
120 f=180*e/100+32 
130 k=213+e 
140 PRINT e,r,f,k 
150 NEXT e 
160 IF INKEV$=u THEN 160 
170 RETURN 
180 FOR eI=O 10 -1000 STEP -1 
190 PRINT "Centigrados**RealllOu 
rUFarenhei tUKelvin 
200 r=80*eI/100 
210 f=180*eI/100+32 
220 k=2.73+eI 
230 PRINT el,r,f,k 
240 NEXT el 
250 IF INKEV$=u THEN 250 
260 RETURN 


microprocesador del monitor del 
Amstrad puede hacer cuando se le 
invoca adecuadamente. 


10 !100E 1 
20 FOR i:: &8C44 TO 
30 RERO a: POKE &8C4D 
40 NEXT l,a 
50 CRLL &8CU 
60 RESTDRE 
70 GDTD 20 
80 DRTR 62 13 
,1,30,1 ' ,38,200,46,200,22 
90 EN!) 


1... 
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26 ... 
69 . 
113 


La regla más 
sencilla 


por Esteban Liado 
DE todas las formas de llevar a 
cabo un scroll de pantalla, la más 
simple y elemental es ésta. No es 
el summun de la sofisticación, 
pero funciona y sirve 
perfectamente para incluirlo en 
programas Basic. No se puede 
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pedir más a tres líneas de 
programa que, dicho sea de paso, 
caben en una. 


10 FOR i=! TO 25 
20 LOCATE l,l:PRINT CHR$(S) 
30 NEXT i 


Lo que el viento 
se llevó 


por Esteban Liado 
ESTA rutina, tan corta como 
espectacular, reproduce con 
notable perfección el estallido de 
un avión u ovni cualesquiera en 
su fatal encuentro con un 
obstáculo. Esperamos verla 
aparecer pronto en los programas 
de lectores. 


10 REM Choque de avion 
20 MODE O 
30 CLS 
40 BORDER 7 
50 ENV 1,1,15,1,3,0,20,15,-1,1 
O 
60 SOUNO 7,2100,0,0,1,0,15 
70 END 


'lo 


. 


100 3 


.. 
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Sueños de hacker 


por Alfonso Guzmán Bravo 
LOS hackers son aquellas 
personas a las que les encanta 
jugar con el ordenador y, en su 
persecución de lo prohibido, 
adentrarse más y más en las 
entretelas de la máquina. A ese 
enfoque corresponden los 
programitas que nuestro amigo 
Alfonso nos envía. 
Para ejecutar líneas REM: 
10 REM «Esta línea se ejecutará». 
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20 POKE &174,191:GOTO 10 
Desaparición de líneas de 
listado: 
10 REM 
20 REM «Esta línea es 
imposible». 
30 POKE &185,0 
40 POKE &172,0 
Por último, para que el listado 
desaparezca completamente y el 
programa no se pueda ejecutar, 
basta teclear: POKE &170,0. 
En el caso nada improbable de 
que se desee recuperar el listado, 
antes de ejecutar el poke anterior 
almacene en una variable su 
contenido original de esta forma: 
antes = PEEK(&170) 
y, en el momento adecuado: 
POKE &170, antes. 


Formas y fórmulas 


por José María Alonso 
Bermúdez 
NUESTRAS felicitaciones a 
J osé María por su excelente 
contribución a la sección de 
trucos. No sólo nos envía un 
programita que crea en pantalla 
un dibujo original y bonito, sino 
que también tenemos una serie de 
útiles llamadas a la Rom, a las 
que la imaginación de nuestros 
lectores encontrará un uso pronto. 
Las llamadas son las siguientes: 
CALL &BC04: Desplaza la 
pantalla 1/2 carácter a la derecha. 
CALL &BAOA: Divide los 
caracteres por la mitad. El efecto 
desaparece al cambiar de modo. 
CALL &BD23: Produce un efecto 



visual (Nota hiriente de redacción: 
enigmático, ¿eh?). 
CALL &BDl2: Inicializa el 
sistema operativo con un mensaje 
de «***PROGRAM LOAD 
F AILED***». 


10 DEG 
20 CLS 
30 ORIGIN 320,125 
40 PRINT CHR$(13) 
SO 
OR x=l iO 360 
60 PRINT CHR$(13) 
70 a=SIN(x)*100 
80 b=COS():'*100 
90 
RAW a,
:ORAW b,a 
100 DRAWR 20,20 
110 NEXT x 
120 GOTO 40 


La botella de Rom 


por Francisco López 
AQUÍ va este sensacional cóctel 
de rutinas que se encontraban, 
hasta ahora, dormidas en la Rom. 
Que trabajen, para eso las pagan. 
CALL &BA34,3: Espera un poco 
y reinicializa el ordenador. 
CALL &BAI2: En modo 2 no 
ocurre nada (empezamos bien). 
En modo 1, parte los caracteres 
en 2 mitades iguales, y, en modo 
O, en cuatro. 
CALL &BAlO: Convierte las 
letras en absolutamente ilegibles. 
El sueño del programador 
masoca. 
CALL &BAII: Lo mismo en 
modo 2 que con la rutina &BAlO. 
En modo O y 1 no ocurre nada. 


Reset O no Reset 


por Javier Espinosa 
LA siguiente rutina desconecta 
el Reset en caliente del Amstrad, 
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es decir, pulsando Control, May y 
Esc a la vez no ocurre 
absolutamente nada. 
Si desea que la combinación de 
estas teclas vuelva a actuar, 
ejecutar: 


CALL 40200,0 


iD REM jesccnertador de reset 
20 REr por javier espinosa 
'30 MEr-ORY 39999 


40 FOR ¡=i 
O 22 
SO READ j$ 
60 POKE (40200ti)JVAL(

n+j$): 


'
EXT i 
70 DATA fe,Ol¡cO,dd,7e,OO,fe,O 
O¡2S,06,3e,r3 
30 DATA 32,ee¡bG,c9,3e,r9,32,e 
e,bd,r9 
90 CALL 4Ú200,O:END:RE
 40200, 
i 
ara modo normal 
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68000. 
Guía del Usuario 
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GUlA DEL USUARIO 


llONEl FLEETWOOD 


{.C-m4 


DESDE la aparición del primer 
micIOprocesador de Motorola, el 
M6800, ha ido surgiendo toda una 
familia de microprocesadores, 
cada uno de ellos superior a su 
predecesor, a la vez que bajaban 
los precios de los chips. 
El 68000, del que se ocupa este 
libro, tiene un bus de dirección de 
32 bits, registro de datos y 
dirección de 32 bits y un reloj de 
4 a 12.5 MHz. Se ha ido haciendo 
cada vez más popular, de tal 
manera que hoy forma parte de 
ordenadores como el Sinclair QL, 
Apple Mcintosh, Commodore 
Amiga y el Atary ST. 
Así las cosas, el autor propugna 
que la demanda de programadores 
para este procesador va a ser 
«explosiva» y recomienda que se 
aprenda a programar con él. 
Además de enseñar, esta guía 
del usuario tiene la ventaja de 
mostrar cómo se aplican los 
conocimientos adquiridos a 
proyectos reales, analizando en el 
primer capítulo la estructura del 
68000. En los siguientes se explica 
qué es un ensamblador y cómo 
utilizarlo. Especialmente útiles son 
los tres apéndices en los que se da 
una lista completa de la sintaxis 
de las instrucciones, las entradas 
CCR y una tabla sobre los modos 
de direccionamiento. 
El objetivo del libro queda 
bastante claro en las palabras de 
Lionel Fleetwood: «nadie dice que 
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el lenguaje ensamblador sea fácil, 
pero creo que esta aproximación 
nos ayudará a hacerlo lo más 
simple que sea posible». 


Título: 68000. Guía del Usua- 
rio 
Autor: Lionel Fleetwood 
Editorial: Ra-Ma 
Páginas: 180 
Precio: 1.900 ptas. 


Sistemas expertos 
para ordenadores 
personales 


LA Inteligencia Artificial es una 
parte de la informática cada vez 
más desarrollada y con resultados 
importantes en diversas áreas, 
tanto que se está investigando ya 
en los ordenadores de la Quinta 
Generación, donde la utilización 
de estas técnicas será exhaustiva. 
Los Sistemas Expertos son 
programas basados en las reglas y 
métodos de la Inteligencia 
Artificial, de manera que simulan 
el razonamiento humano en un 
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campo determinado. A la 
introducción y descripción de este 
tema se dedica la primera parte 
del libro. Analizando a 
continuación las estrategias y los 
diferentes lenguajes de 
programación que se utilizan en 
los Sistemas Expertos, con una 
detallada discusión sobre la 
conveniencia de utilizar lenguajes 
de propósito general, como el 
Basic, para la creación de estos 
sistemas. De hecho pueden 
utilizarse, pero existen los 
llamados «lenguajes verdaderos» 
de la Inteligencia Artificial, como 
el Lisp o el Prolog, que fueron 
especialmente diseñados para estas 
tareas. Sin embargo, al ser los 
más conocidos por los usuarios de 
los ordenadores personales, el 
Basic y el Logo se utilizan a lo 
largo del libro en las explicaciones 
y ejemplos de programas. 
Como la idea principal del libro 
es lograr que todo aquel usuario 
que se acerque a él obtenga una 
visión completa y clara de estos 
sistemas y sus aplicaciones, el 
análisis de la Inteligencia Artificial 
está realizado clara y 
detalladamente, de manera que el 
lector sea capaz de comprender 
esta forma de programar y 
aplicarla un poco mejor que antes 
de leer este libro. 


Título: Sistemas expertos para 
ordenadores persona- 
les (Introducción a la 
Inteligencia Artificial) 
Autor: M. Chadwick y J. A. 
Hannah 
Editorial: Ra-Ma 
Páginas: 248 
Precio: 2.200 ptas. 


Tratamiento de 
textos con 
Gem Write 


EL tratamiento de textos es una 
de las aplicaciones más extendidas 
del ordenador, especialmente en 
las oficinas. Gem Write es un 
programa de tratamiento de textos 
para el Amstrad PC, un 
ordenador que, aplicado al 
trabajo de oficina de las pequeñas 
empresas, e incluso para los 
particulares, permite utilizar 
recursos hasta ahora sólo 
reservados a las grandes empresas. 
El objetivo principal de este 
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Tratamiento de textos con 
GEM Write 
en el Amstrad PC 
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libro es ayudar al lector a 
comprender los programas de 
tratamiento de texto y su 
funcionamiento, en este caso 
concreto el Gem Write, un 
programa bueno y rápido que, 
según el autor, está indicado para 
todos aquellos usuarios que no 
tienen conocimientos de 
informática, ni están 
acostumbrados a manejar un 
ordenador, pero tiene que 
empezar a utilizar un programa 
que procese textos, con la ventaja 
adicional de su precio, 
relativamente barato, y su total 
compatibilidad con los programas 
del entorno Gem, de manera que 
se pueden introducir dibujos y 
toda clase de recursos gráficos 
para alegrar los documentos. 
Está dividido en capítulos. En 
los primeros se hace una 
introducción al Amstrad PC y al 
Gem, para pasar después a la 
explicación general del 
funcionamiento de los programas 
de tratamiento de textos y, en 
concreto, al manejo de Gem 
Write, con todas sus opciones y 
posibilidades. 
En definitiva, un tema 
interesante, para todos los 
usuarios del PC, tratado con gran 
sencillez y acompañado por 
numerosos esquemas, ilustraciones 
y resúmenes. 


I 


Título: Tratamiemo de textos 
con el Gem Write en el 
Amstrad PC 
Autor: Mike O'Reilly 
Editorial: Anaya Multimedia 
Páginas: 247 
Precio: 2.120 ptas. 


Guía del 
programador 
para el IBM PC 


TODO libro esconde un secreto 
y a éste en particular le ha 
correspondido la difícil tarea de 
desvelar el complejo 
funcionamiento de un pc. 
Su autor, Peter Norton, todo 
un nombre dentro del mundo de 
la microinformática, conocido 
sobre todo por sus programas de 
utilidades, nos adentra en el 
interior del PC, describiendo, a 
través de las 463 páginas con que 
cuenta el libro, todas sus 
posibilidades. 
Los temas que recoge son 
múltiples y variados. Destaca, 
sobre todo, la parte dedicada a la 
descripción del bios, con una 
completa información de los 
puntos de entrada al sistema. 
Utilizando estos puntos, 
multiplicaremos la potencia de 
nuestros programas y tendremos 
un control total de nuestro pc. 
El capítulo dedicado a 
interrupciones es también 
especialmente interesante, 
dándonos las claves para trabajar 
en modo background, lo que nos 
va a permitir ejecutar varios 
programas al mismo tiempo. 
En general, el libro es una 
estupenda herramienta de trabajo, 
con una lectura sencilla para el 
lector avezado, pero que para su 
perfecta comprensión exigirá 
varias horas de trabajo, altamente 
recompensadas por el bagaje de 
conocimientos que nos va a 
otorgar. 
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Título: Guía del programador 
para el IBM pr 
Autor: Peter Norton 
Editorial: Anaya Multimedra 
Páginas: 463 
Precio: 


Programación 
en Lisp 


PrograrriaClon en 
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SI el futuro de la informática se 
encuentra en la Inteligencia 
Artificial, entonces se hace 
imprescindible conocer y saber 
programar en Lisp. 
Esta es la idea que ha movido 
al autor a escribir el libro sobre 
un lenguaje que, además, puede 
utilizarse en toda clase de 
ordenadores. 
Está dividido en tres partes. La 
primera describe de una manera 
bastante sencilla la sintaxis del 
lenguaje. En la segunda se 
analizan las cuatro técnicas más 
usuales en la programación, y en 
la tercera y última se presentan y 
comentan los programas que 
componen un pequeño robot 
inteligente. Es decir, una pequeña 
introducción al mundo de la 
Inteligencia Artificial. 
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POSmILIDADES 


EN CP/M 


El CP/M sí tiene color 


Para los que no les guste ni el 
color ni el modo de la pantalla 
con que aparece el CP 1M al 
cargarlo, aquí tiene un programa 
que se teclea en Basic y al 
ejecutarlo produce un 
«Color.Com» ejecutable desde 
CP/M (cualquiera de las dos 
versiones). Para el borde, la tinta 
es de 16 y los códigos de los 
colores son los mismos que los del 
Basic. 
Los que estén interesados en el 
lenguaje máquina pueden ver 
cómo se utilizan las llamadas del 
sistema operativo del Amstrad 
desde CPIM, si bien la forma de 
usarlas no es como simples 
llamadas, sino que las direcciones 
se deben colocar después de una 
llamada, que es distinta para [as 
dos versiones de CP/M. Para la 
versión 2.2 la llamada se realiza a 
la dirección &BE9B y para la 3.1 
o Plus, la dirección es la &FC5A. 
Los registros a la entrada y a la 
salida, para las dos direcciones 
deben tener [os mismos valores 
que requiere la rutina llamada. 
Además, hemos utilizado dos 
llamadas del BDOS para conocer 
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por JUAN CARLOS PLAZA 


GENERADOR DE COLOR 
COM 


10 AMSTRAD SEMANAL J,C.P, 
20 MEMORY &8FFF: n=&AOOO 
30 FOR i=l YO 5:FOR j=l TO 10 
:READ a$:b=VAL("&"+a$):sco=sco 
+b:POKE n,b:n=n+l:NEXT 
40 READ s: IF s(>sco THEN PRINT 
"ERROR en linea:"; i*10+50: STOP 


50 sco=O:NEXT 
60 DATA 21,21,AO,7E,47,23,ll,O 
O,A3,CD, 843 
70 DATA 8C,BC,ED,4B,2E,AO,2A,3 
O,AO,7E, 1222 
80 DATA CD,95,BC,23,OB,78,Bl,2 
O,F6,CD, 1368 
90 DATA 8F,BC,C9,OC,43,4F,4C,4 
F,52,20, 959 
100 DATA 20,20,2E,43,4F,4D,55, 
01,00,90, 563 
110 n=&9000 
120 FOR i=l TO 34:FOR j=l TO 1 
O: READ a$: b=VAL("&"+a$>: sco=sc 
o+b:POKE n,b:n=n+l:NEXT 
130 READ s: IF s(>sco THEN PRIN 
T"ERROR en linea:";i*10+150:ST 
OP 
140 sco=O:NEXT 
150 PRINT"Inserta disco y puls 
a una tecla":CALL &BB18:CALL & 
AOOO 
160 DATA OE,OC,CD,05,00,7D,FE, 
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la versión del CP 1M e imprimir 
una cadena. Para conocer la 
versión tenemos que cargar el 
registro «C» con el valor &C y 
llamar a la dirección 5. En el 
regreso, el número de versión está 
en «L», según los valores: 
&22 para la versión 2.2 
&31 para la versión 3.1 
Para imprimir una cadena hay 
que dar la dirección de ésta en 
«DE», cargar «C» con el valor 9 
y llamar a la dirección 5, el final 
de la cadena debe ser siempre el 
carácter «$». 


31,28,49, 777 
170 DATA 11,C6,Ol,CD,67,01,11, 
ED,Ol,OE, 794 
180 DATA 01,CD,71,Ol,3A,C3,01. 
DG,30,CD. 1041 
190 DATA 9B,BE,OE,BC,11,03,02. 
CD,6F,Ol, 886 
200 DATA CD,9E,Ol,F5,ll,18,02, 
CD,6F,Ol, 969 
210 DATA CD,9E,Ol,F5,ll,34,02, 
CD,6F,01, 997 
220 DATA CD,9E,Ol,4F,Fl,47,F1, 
FE, 10,28, 13'06 
230 DATA 06,CD,9B,BE,32,BC,C9, 
CD,9B,BE, 1545 
240 DATA 38,BC,C9,21,5A,FC,22, 
lE,Ol,22, 919 
250-DATA 48,Ol,22,4E,Ol,22,7C, 
01,22,BD, 568 
260 DATA 01,18,A3,C5,OE,09,CD, 
05,OO,Cl, 811 
270 DATA C9,OE,02,CD,67,Ol,ll, 
C3,Ol,AF, 914 
280 DATA 32,C2,Ol,CD,9B,BE,18, 
BB,47,FE, 1331 
290 DATA OD,C8,FE,30,38,F3,FE, 
3A,30,EF, 1413 
300 DATA 3A,C2,Ol,B9,28,E9,3C. 
32,C2,Ol, 1016 
310 DATA 78,12,13,CD,BC,Ol,18, 
DD,3A,C2, 1048 
320 DATA 01,lB,FE,Ol,06,00,28, 
OF,B7,C8, 727 
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Help 
CP/M 


No hay quien borre 
Para proteger ficheros contra el 
borrado accidental, en el caso de 
CP 1M Plus, tienen que seguir los 
siguientes pasos. Cargar el CP 1M 
Plus e insertar el disco que 
contiene la utilidad Set y teclear 
lo siguiente: 
SET B:NOMBRE [RO] donde 
Nombre es el nombre de un 
programa a proteger. Este nombre 
de fichero admite símbolos 
comodín. Dentro de las opciones 
que se pueden especificar tenemos: 


330 DATA 1B,lA,D6,30,06,OA,4F, 
AF,81,10, 730 
340 DATA FD,47,13,lA,D6,30,80, 
C9, CD, 9B, 1320 
350 DATA BE,5A,BB,C9,OO,OO,OO, 
00,2A,20, 742 
360 DATA 4D,6F,64,6F,20,64,65, 
20,70,61, 873 
370 DATA 6E,74,61,6C,6C,61,20, 
79,20,63, 920 
380 DATA 6F,6C,6F,72,20,64,65, 
20,74,69, 930 
390 DATA 6E,74,61,20,2A,20,24, 
OA,OD,4D, 565 
400 DATA 6F,64,6F,20,64,65,20, 
70,61,6E, 906 
410 DATA 74,61,6C,6C,61,20,3F, 
20,;)4,OA, 699 
420 DATA OD,4E,75,6D,65,72,6F, 
20,64,65, 876 
430 DATA 20,70,6C,75,6D,61,20, 
3F,20,24, 738 
440 DATA OA,OD,4E,75,6D,65,72, 
6F,20,64, 785 
450 DATA 65,20,70,72,69,6D,65, 
72,20,63, 919 
460 DATA 6F,6C,6F,72,20,3F,20, 
24,OA,OD, 630 
470 DATA 4E,75,6D,65,72,6F,20, 
64,65,20, 895 
480 DATA 73,65,67,75,6E,64,6F, 
20,63,6F, 999 
490 DATA 6C,6F,72,20,3F,20,24, 
00,00,00, 496 


RO Para convertir el fichero en 
sólo lectura. 
RW Para convertir el fichero en 
escritura y lectura. Este es el 
tipo normal de los ficheros, 
a no ser que se especifique 
lo contrario. 
SYS Para pasar un programa del 
directorio al sistema, 
haciéndolo invisible a un 
catálogo. 
DIR Para pasar el programa al 
directorio. 
Las opciones RO y RW se 
pueden combinar con SYS y DIR. 
Si queremos proteger todos los 
programas de un disco bastaría 
con: 
SET B:**[RO] 
que nos irá comunicando el 


nombre de todos los ficheros que 
cumplan la condición. Esta 
protección también sirve desde 
Basic, ya que la orden IERA no 
los puede borrar. Si hacemos un 
catálogo de un disco que contenga 
programas protegidos aparecerá 
un asterisco al lado del nombre 
del fichero. 
Para los que sólo tengan CP 1M 
2.2, tendrán que utilizar siempre 
discos con formato sistema, y 
copiar la utilidad Stat al disco 
cuyos programas desean proteger. 
Además no podrán utilizar la 


opción de disco B: (a no ser que 
posean dos unidades de disco). La 
forma de protegerlos será: 
STAT*.COM $R/O 
y para convertirlos en lectura- 
escritura: 
STAT*.CO $R/W 


Más que PIP, PIP y... 
Para copiar ficheros desde el 
CP 1M Plus, todos los usuarios 
conocen la utilidad Pip, en la 
forma: 
PIP B: = A:PROG.BAS 
pero además Pip admite una serie 
de opciones, que se colocan al 
final de la línea de órdenes, entre 
corchetes y separados por 
espacios. Así, por ejemplo, si lo 
que queremos copiar son varios 
programas cuyos nombres no 
tienen nada en común, 


teclearíamos la siguiente línea de 
órdenes: 
PIP B:A:=*.* [C] 
y conforme se van leyendo los 
programas se nos pide 
confirmación sobre si queremos 
copiarlos o no. Si lo que 
necesitamos es que no haya 
diferencia entre las copias, es 


decir, que no se pueda deslizar 
ningún error, aunque éste sea muy 
pequeño, tendremos que utilizar la 
opción «V» de la siguiente forma: 
PIP B:A: = *. *[C V] 
que además de pedimos 
confirmación también verifica la 
exactitud de la grabación. Otra 
opción bastante interesante es 
poder copiar ficheros que sean 
invisibles al catálogo; es decir, los 
que tienen atributo Sys, esto se 
puede realizar mediante la opción 
«R». Otras dos opciones 
interesantes son «L» y «U» que 
pasan todos los caracteres ASCII 
de un fichero a minúsculas y 
mayúsculas, respectivamente. 
Los ficheros copiados con estas 
opciones siguen conservando los 
atributos de los ficheros fuentes, 
así, si un fichero era de «RO» y 
«SYS», su copia también tendrá 
estas características. . 
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,----} Deline ventanas. 
WINDOII 12 CLOSE 
SCREEN 12 GRAPHICS 1000 rllED,SO rllED 
WINDOW 12 PLACE O¡ 111 
WINDOW 12 TITlE 'r I C H E R O S' 
SEr 12 POINTS 8 COLOR I mECTS I 
SCREEN 1I SRAPHICS 640 rIlED,200 rllED 
STREA" 11 
WINDOW rULL 
WINDOII TlTlE 'S R A r I C O S' 
,----} Inializaci6n. 
OPTlON RUN 
OPTlON DESREES 
ON ERROR SOTO er 
DI" a'(S), b'ClS) ,ICIS,4), secClS), sec2C1S) 
bp'=CHR'(1) 
j=1 
J2=O 
I '=CHR' (231)+CHR' (2SI) +CHR'(239)+CHR'(230) 
l' 
,----) "enO Principal. 
LADEl oenu 
SOSUD oar 
SET mms .1 POINTS 8 COLOR I rONT I 
LOCATE 26¡6:PRINT rONT(2)¡ADJUSTCl8)¡'NENU PRINCIPAL' 
LOCATE 28¡10:PRINT '1.- REPRESENTAR SRAncO.' 
LOCATE 28¡I2:PRINT '2.- INTRODUCIR DATOS.' 
LOCATE 28¡14:PRINT '3.- SALVAR DATOS.' 
LOCATE 28¡16:PRINT '4,- CARSAR DATOS,' 
lOCATE 28¡18:PRINT 'ESC.- SALIR.: 
LADEl rep 
d= INKEn 
Ir d=CHR'(27! THEN SOTO sal 
Ir d}CHRS(S2) OR d(CHR.(49) THEN SOTO rep 
x=VAl (d) 
ON x SOTO representa,introduce,saiva,urga 
, 


Gem Bussines 


Graph 


Por Juan Antonio Illescas 


El Basic del Amstrad pe, además 
de ser muy potente, es útil. 
Buena prueba de ello es este 
programa de gráficos 
profesionales. La palabra que lo 
define es justamente esa: 
profesional. 


,--} Salir. 
LADEL sal 
SET COlOR I 
LDCATE 28¡18:PRINT ErfECTSC6S)¡'ESC.- SAlIR.' E el programa se ha los valores sean negativos, al 
rOR n=1 TO SooO:NEXT incluido una rutina de menos uno de ellos tiene que ser 
LDCATE 26¡20:PRINT 'L EsU totalo.nte seguro? (SIN)' estión de errores, positivo. 
SOSUB respuesta 
Ir sn=1 T1£N ClS:END mediante la cual, en la Cuando se representa un gráfico 
lInTE 28¡IB:PRINT 'ESC.- SAliR.' ventana de diálogo, aparecerá el mediante barras o líneas, el 
=

6¡20:PRINT STRlN6.(32,32) tipo de error ERR y el OSERR, si programa dibuja una escala de 
, es que lo hay, y parará el valores en la coordenada Y que 
,---} Introdudr datos. aparece en la pantalla. 
LABEL introduce 
SET ta.OR I Esta escala está dividida en 
Ir intro=1 THEN LDCATE 20¡20:PRINT 'Existen datos.., Hloria. ,Continuo? (S/N)':60SUB respuesta: Ir sn=O T1£N LOCATE 20¡20:PRINT STRI 15 partes, sean los valores 
N6.(SO,32):60TO rep . . . S . 
LDCATE 20'20:PRIIfT STRIN6.(SO 32) pOSitiVOS o negativos. I 
sn=O:r=():
cf='ACTlVA RETlClU
 ':rell=O:ec'='COLDR. ' programa para revisar las causas todos los valores son positivos, 
LDCATE 28¡12:PRINT EfrECTS(6S)¡'2.- INTRODUCIR DATOS.' q ue ha y an P odido ocasionar el tendrá como primera línea la O y 
rOR n=1 TO SOOO:NEXT , . , 
ClS error. como ultIma el numero 
LDCATE 32¡2:PRINT rONT!2)¡ADJUSTCl4)¡'Caopos' A la hora de la representación redondeado a un múltiplo de 10, 
t
TEc
::IIIPUT 'N6....0 de caoPO! (Nb. ISI: ',el del gráfico, pueden aparecer de. tal ma
era que al llegar a la, 
Ir cl<l OR ct>lS T1£N LDCATE 38¡S:PRINT STRlN6.(41,321:60TO mpo problemas si alguno de los prImera hnea el valor sea O. ASI 
LDCATE 2'5¡B:PRINT rOO(2)¡ADJUSTCl4)¡'lntroducci6n CalpOS' datos S t . A 1 todos los valores de la escala 
101 3OOO¡2615,lIoo,3OO rlll WITH 8 ta.OR 3 e nega IVO. unque e " . . 
LDCATE 31¡10:PRINT NODE(2)¡'Caopo N,' programa esté hecho también seran multIplos de 10, pero SI al 
rDR n=1 TD el - llegar a la primera línea el 
Ir nH T1£N 101 2400¡1775,2BOO,3OO:LDCATE 41¡14:PRINT STRINlifCIO,32):LDCATE 26¡I4:PRINT 'Caopo anterior: '¡b'(n-I) valor no es el cero 
LDCATE 38¡ 10:PRINT 1I08E(4) ¡COlOR(3) ¡STRlNS.ClEN(STR$(n» ,32) , 
lInTE 37¡10:PRINT NODE(2)¡n recalculará la escala de valores 
0=0-1 para gráficos con datos negativos, es tantas veces como sea necesario 
LAIEl r4 1 . 1 , 
LDCATE 24¡IB:PRIIfT STRIN6'(lE!I(b$(0»+I,32) aconsejable no utilizados, pues para que a prImera mea 
LDCATE 14¡18.IIIPUT 'Introduzca: ',b'(n) puede haber errores en la escala, tome el valor cero y que entre 

1
(b'(n»HO OR lE!I(bS(n»(I THEN o=o.SOTO r4 como por ejemplo que el valor de cada valor haya un número 
60SUB tecla la línea O no sea el O, que el constante. 
ClS gráfico se salga de la escala, etc. Si cualquiera de los nombres de 
LDCATE 31¡2.PRINT rOO(2)¡ADJUSTCl4)¡'Registros' 1 1 
LAIEL registro En cuanto a los datos os campos es mayor que a 
LDCATE 12¡S:IJIPUT 'HUero de registros (""l. 4>: ',c2 , positivos el programa no longitud que tiene éste en la 


IC

6

4
IE
D


 =

:::
T:IN6'(3'J,32>:60TO reglS:o existe y lo hará a la panta
la, el nombre será 
LDCATE 3ijlo:
IIfT'NODE(2)¡'Registro H.' perfección. No admite que todos abrevIado. 
LDCATE 
B:PRIHT. rDI!T(2)¡ADJUSTCl4)j 'Introducei6n registros' 


l 


26 AMSTRAD Scmanal 



::.. .. ll
¡ : _.,¡
.,¡;Q..i l. 2iYi .....
e-li ..rt",F-L 
_._ 


; 
 o ¡ e . ¡ 


rIIR n= 1 TO c2 
UJ;'TE 
1110:f'ttINT IIODEI41¡CDlORI31¡' . .0 
lllCUI 4O¡10,f'tt1l1T IIOOECi)¡n 
Ir nH TtIEIf fOl 2400¡1775,3Ioo,3OO:l0CATE 43¡14:PRINT smNSSlIo,321:lOCATE 26¡14:f'ttINT 'Registro .nterior: '¡"(n-II 
.=n-I 
lABEl r5 
lDCATE 24¡IB:PRINT $nINSSllENlaSl.IJ'I,321 
lOCATE 14¡IB:IIlPUT 'Introduzca: ',aSlnl 
Ir LINlaSlnlJHO OR lENI.Slnl)(1 THBI .=n:60TO r5 
NEIT 
SOSUB tecla 
ctS 
LDCATE 36¡2:f'ttINT rOOI21¡ADJUSTII41¡'Yaloros" 
BOl 25OO¡2615,13OO,3OO FIll MlTH B COl" 
lOCATE 26¡10:f'tt ,1' 21¡'y.lor de ' 
rOR .=1 TO c2 
rOl! n=1 TO d 
Ir .11 AND n=1 THEN a.=-d'I:..=..+1 ElSE ..=I:.a=O 
. Ir n>l OR .H THEN BOl 34oo¡2675, IlE!llaSl....IJ+lEltlbSln-..IJ+4l1loo,3OO FIll MITH o COlOR o 
BOl 3400;2675, IlENCaSl.IJ+lENlbSlnlJ+4Jf1oo,3OO Flll MlTH B COlOR 3 
lOCA TE 34¡10:f'ttINT IIODEI21¡aSl.)¡' tn '¡bSln) 
Ir nH OR.H T1£N BOl 2400¡1775,25OO,3OO:lOCATE 40¡14:f'ttINT STUNSS19,321:lDCATE 26¡14:f'ttINT 'Yalor anterior: .¡lIn-..,.-.al 
lABEl r6 
Ir n>l OR .H THEN lOCATF 24¡ IB:f'ttINT SmNSSI47,321 
lQCATF 14¡ lB: INPUT 'Introduzca: ',lIn,.) 
Ir1In,.1)999'J99 OR IIn,.){-99'J99'J T1£N 6OTO r6 
NEIT n,. 
SDSUB tecl. 
ClS .. 
lOCATF 30¡4:PRINT FDNH2I¡ABJUSTIl4)¡'R6tulos' 
lADEl i I 
lOCA TE 2O¡B:INPUT 'Introduzca leyenda ¡¡nN 1: ',11' 
Ir lENmtl>70 THEN PRIIIT bpS:lDCATE 2O¡B:f'ttINT smNSSllOO,321:6DTO il 
lADEl i2 
lOCATE 2O¡10:INPUT 'Introduzca ley..da line. 2: ',12S 
Ir lENI12m70 THEN f'ttINT bpS:lOCATE 20¡ 10:f'tt11lT STRINSSIlOO,32):GOTO i2 
lABEl i3 
lOCATF 20¡ 12: INPUT 'Introduzca r6tulo coordtnada 'x': ',nl 
Ir lENlrxSJ>70 THEII f'ttINT bpS:lOCATE 20¡12:f'ttINT STRINSSIIoo,32J:6DTO 13 
lAIIFl i4 
lOCATE 20¡14:INPUT 'Introduzca r6tulo coordenada 'y': ',ryf 
Ir lE!llrySl>22 THEN f'tt11lT bpS:lOCATE 20¡14:f'ttINT STRIII6SII00,32J:60TO 14 
SDSUB tecl. 
intro=1 
SOTO .enu 
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,---) Represantar grAfico. 
lABEl representa 
n 1=-1000000: n2=1000000 
Ir intro=O THEN GOTO rep 
SET CIIlOR I 
lOCATE 2B¡ 10:PRINT ErFECTsI651¡'I.- REPRESEIITAR &RAFlCO.' 
FOR n=1 TO 5OO0:NEIT 
lABEl representa2 
j=l: ,j2=O: d=O:gr adol=O:grad02=O:total =O: total2=O: al tura=O:altur a2=O 
60SUD .ar 
lOCnE 30¡5:PRINT ADJUSTIIOI¡EfFECTSIO)¡'IIENU DE REPRESEllTACIDII' 
lOCATE 2e¡B:f'ttINT 'FI.- REPRESENTAR POR BARRAS.' 
lOCATE 2e¡IO,PRIIIT 'F2.- REPRESffiAR POR UNEAS.' 
lOCATE 2e¡ 12:f'ttINT 'r3. - REPRESENTAR POR SECTDRES.' 
lOCATE 2B¡14,f'tt11lT 'F4.- '¡acS 
lOCATE 2B¡ 16:f'ttINT 'r5.- REllEIID CDII '¡ecS 
lOCATE 2D¡IB,PRINT 'ESC,- SAliR AlllENU f'ttINCIPAl.' 
lABEl rop2 
i=INKEY 
Ir i=-I TIlEN 6OTO rep2 
Ir i=315 THEN 60TO barra 
Ir i=316 THEN 6OTO linea 
Ir i=317 THEN 6OTO soctor ... 
Ir i=31B THEN 60SUB act_des.ct 
Ir i=31' THEN 60GUe relleno ''i t""::. e;;; ':.: .u ... 
Ir i=27 THEN lOCATE 2B¡IB:f'tt11lT EFFECTSI651¡'ESC.- SAliR AlIlENU f'ttINClPAl. ':rOR n=1 TO 5OO0:NEIT:GOTO _u 
GOTO rep2 
,--) ActivarlDesactiYir roUcula. 
LABEl act de..ct 
Ir r=O THEN acS='DFSACTlVA RETlCUlA. ',lOCATE 2B¡ 14:f'ttINT 'r4.- '¡acS:lOCATE 24¡20:f'ttINT 'V-Vertical. H-Horizontal. A-Alba.. ',6OSUB 
r..:lOCATE 24¡20:f'ttINT Smll6S150,32),60TO rep2 
r=O 
.cS='ACTlYA RETlClIlA. ' 
lOCnE 2B¡14:f'ttINT 'r4.- '¡acS¡STRINSSIl2,321 
RETIII!N 
,--) Relltnar con T....IColor 
lAIEl relleno 
Ir rell=O T1£N roll=I,ocS='TRAIIA. ' ElSE rell=O:ecS='COlOR. ' 
lOCATE 2B¡16:f'ttINT 'r5.- REllEllO CDII '¡ecS 
RETURI 
,--) Repr....tar por bar,as. 
lABEl barra 
lOCATE 2B¡B:f'ttINT EFFECTSI65I¡'F1.- RFPRESffiAR POR BARRAS.' 
rOR n=1 TO 5OO0:NEIT 
ClS 
60S11B oaKiIO 
60GUe escala 
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60S118 ...... 
60SUB val.res 
grosor=lpl-350)Ie2 
rOR n=1 TO e2 
Ir nH THEN p2=1l00+lgr.sor+mlj:j=j+l:j2=j2+400 £lSE p2=1J0I) 
lABEl e.idr. .. - 
Ir rell=1 T1£II U=8:c=n+1 £lSE U=n:e=1 ;: 
Ir 1=1 M8 rell=O TIfEN e=2 
BOl 1200In+j2¡2oo,400,200 Flll M1TH ti COlOR e 
IIOYE 1200In+J2+400¡200:PRINT ': '¡dI.) 
Ir 1=1 no RETURII 
rOR 0=1 TO el 
60SUB all 
Ir 1I.,n)=1 no allura=allura+2'5 ElSE allura=allura+50 
Ir rell=1 T1£IIII=8:e=n+1 £lSE 11=n:e=1 
Ir allura=O THEN IlIura=50 
BOl p2;b4,grosOl',allura Flll MITH U COlOR e 


2:

 . fic11eN5- Pn!ll'alla S Editar fUfnte s Colo res Trallas llneas Uenunas 
60508 r.tulos salir. 
Ir rell=1 AND n210 T1£IIllNE 9S0;bl,80oo;bl £lSE Ir rell=1 THEN d.s=I:60SUA 

eala 
60TO leela2 > . 
,--) Represenlar p.r lineas. 
lAlE\. U.e¡ 
lllCATE 28¡10.PRINT EFFECTSI6S)¡'r2.' REPRESENTAR POR LINfAS.' 
rOR .=1 TO 5000:NEIT . 
ClS -a 
60S118 .¡xi.o 4- :: 
&OSU8 escala ... __ 
60S118 .u.... 
 m 
6DSUB valores 
 2ft: _ 
rOl n=1 TO e2 fiI: _ 
Ir nH THEIf j2= j2+400 'i - 
PlOT 1200ln+ j2;250 "ARlCU n+2 C1IlOU1! n ,. ' 
IIOYE 1200In+j2+2oo¡2oo:PRIIIT " ';a$ln) 
-:. .. ". 
all.ra2=b4 " 
p3=IOOO 
rOR .=1 TO el 
60SUB 111 
allura=allura+b4 
Ir alluralO TIfEN allura=allura2'lIlura 
Ir .>1 T1£II PlOT p3¡allura2 "ARKER n+2 
LlNE p3¡allura2,p3+pl;¡lIura COlOR n 
p3=p3+pl 
all.ra2=¡lIura 
NEIT .,' 
60SUD rolul.s 
SOTO lec1a2 
,--) Represonllr p.r socl.res. 
lA8El socl.r 
g'ad=3.6 
lOCATE 2B;12.PRINT ErrECTS(65)¡'r3.- REPRESENTAR POR SECTORES.' 
rOR n= I TO 5000: NEIT 
ClS 
Ir e2>1 THEN BOTO sep¡ra,secl.r 
rOR n=1 TO el 
Ir IIn,()O TItEN 101l1=lolIl+lln,1) 
NEIT n 
FOR n=1 TO el 
.=1 
Ir I(n,I)(=O THEN BOTO sg 
SOSUB grados 
Ir n)=8 THEN II=n+ I £lSE II=n _ 
PIE 3590¡2490,2000,grad.2,grad02+grad.1 Flll NlfH ti 
SOSUO oslldi slica 
60SUB grad.s2 
lA8£l sg 
N£IT n 
1=1 
SOSUB ,.Iul.s 
1=0 
j2=O 
FOR n=1 TO el 
Ir I(n,I)(=O THEII BOTO sg2 
Ir n)=B THEN lI=n+1 £lSE lI=n 
001 100;4500- j2, 400, 200 Flll MITH 11 
IIOVE 500;4550-j2:PRIIIT " '¡b$ln) 
j2= j2+250 
lAOEl sg2 
Nm 
cI=140-llENlaSIl) )12) )190 
"OVE cI¡250:PRINT .,(1) 
SOTO lecla2 . 
lABEl sop¡ra,sICI.. 
101al=0 
rOl! n=1 TO el 
FOR .=1 TO e2 
Ir IIn,.»O THEN 10IaI2=1.1I12+lIn,.) 
Nm. 
seeln)=loIl12 
10111=10111+101112 
1.1112=0 
NEn n 
FOR n=1 TO el 
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VARIABLES 


.. 


a$O . . . . . Nombres de registros 
b$O. . . . . Nombres de campos 
10. . . . . . . Valores 
11$ . . . . . . Leyenda de la línea 1 
12$ . . . . . . Leyenda de la línea 2 
rx$. . . . .. Rótulo de la coorde- 
nada 'x' 
ry$. . . . . . Rótulo de la coordena- 
da 'y' 
c. . . . . . . . Color 
altura 2. . Altura anterior 
b4 . . . . . . Posición de la barra en 
la línea O 
bI ...... Posición de la línea O 
bO . . . . . . N. de líneas negativas 
tt .. . .. .. Trama 
j2.nn . . . . Incremento 
j. . . . . . . . Incremento posición 
barra 
p2 . . . . . . Posición de la barra 
ct. . . . . . . Centrado del texto 
grosor. . . Grosor de la barra 
altura. . . Altura de la barra o lí- 
nea 
ec$. . . . . . Texto de trama/color 
x$ . . . . . . Respuestas 
sn.......Respuesta (SIN) 
cI. . . . . . . N. o de campos 
c2. . . . . . . N. o de registros 
rell. . . . . . Relleno por tramal co- 
lor 
intro . . .. Terminación de intro- 
ducir datos 
i........ Respuesta en el menú 
principal 
nI . . . . . . Máximo valor de los 
datos 
n2 . . . . . . Mínimo valor de los 
datos 
n3 . . . . . . N. o máximo de escala 
m4. . . . . . N. o mínimo de escala 
mI. . . . . . Media de valores 
m2. . . . . . Escala de valores 
pI . . . . . . N, o de separaciones en 
la coordenada 'x' 
ac$..... . Rótulo de activalde- 
sactiva. 
total. . . . Suma de todos los va- 
lores, 
secO. . . . . Suma por campos 
grado 1.. incremento de grado 
grado 2. . Inicio del sector 
Total 2.. Suma de valores por 
ampos 
sec20. . . . Grados de sectores 
grad. . . . . Coeficiente sector 
dos. . . . . Segunda vez que dibu- 
ja línea O 
r........ Tipo de retícula 
1$ . . . . . . . Cadena de seguridad 
bp$ . . . . . Pitido, 


1 


" 


. ' 



total2=sec Cnl 
gr adol =C Ctota1211001 Itotal 1'3, S 
PIE 3S90i2490,2000.grad02,grad02
radol WIDTH 4 
60Sun estadística 
sec2Inl=gradol
rad02 
gr ad02=gr ad02
r attol 
NfIT n 
gr adol=0:grad02=0 
Ir t=1 THEN mURN 
rIIR n=1 TO cI 
gr ad= 1 seo2 Cnl-s0<2 In-I 111100 
total=seeCnl 
rOR .=1 TO c2 
Ir I(n,.I<=O THEN 60TO .n 
6QgJB gr ados 
Ir re11=1 THfN tt=8:c=o'1 nDE tt=.:c=2 
PIE 3590;2490,2000,grad02,grad02
radol WIDTH I nLL WITH tt CDlOUR c 
SOSUD grados2 
LADfl .n 
NElT ',n 
gr ad02=0: gr adol =O: totaI2=0 
t=1 
60Sun separa_sector fil:lle!'tS 
 fltttar"FÚEiltes Colom Trilllis lineas'Veiítanas Ba$1CZ 
60SUD rotulos ti/ 
 una tecla 
r= >dir. 

 ::: 
rDR n=1 TO c2 £stfl.ist1Á:o: 
Ir n}( T1£N j2=j2+400 EIIW= tI.1B, Al arrancar el P ro g rama nos 
60SUB cuadro f£IIWI= l.Jt t 
N£IT 1IWt: TUt t aparece un menú principal con 5 
t=O mu.= tt,aU opciones: 
60TO t.cla2 
, Opción 1: Nos permite 
._--) Salva datos en el d' o. visual izar los datos fi j O os. Sale un 
LAIEl saha 
Ir intro=O T1£N SOTO rep menú correspondiente. (Está 
SEr COlOR I descrito más adelante). 
LOCATE 28¡14:PRINT rnECT 1 51;'3.- > DATOS, 
 O p ción 2: Introducimos los 
rOR n=1 TO 5000,!tE1T 
LASEl saha2 datos necesarios para la ejecución 
CLS _ , '" fUIICU . ;,--;-
 ,mt. del g ráfico. Si la variable Intro es 
LIICATE 20; 12: INPUT 'Introduzca nolbr. d. fichero, ",IS 
'" 
Ir LENCIS»8 TIfEN SOTO saha2 igual a I y, por tanto, existen 
Ir LEN(fSI=O THEN SOTD .enu' datos de un gráfico en memoria, 
Ir INST11C1S,'. '1=0 T1£N IS=IS+' .SRr" E).SE IS=l.ErTSCIS,INSTRCIS.", :"'"6Rr" . P edirá confirmación para 
Ir nNDSClSIO" TIfEN LOCATE 15¡IS:PRINT 'Hay un fic
 .n el .1510 noobre. ¿Conhuno? ISINI':SOSUD res.uesta:lr sn=O THEN 6OTO sa . . 
1..2 contmuar O no contmuar. 


: IS OUTPUT fS ['Iú\Io"'__£i.t"'_
lr_Iint"V"""'IIISlr.z , En primer lugar hay que 
PRINT IS,IS (' " . '. ", I\Ilst......u"'.5ÚU, " ,,", ,',' , distinguir entre Campo y Registro. 
PRINT IS,cI .' 
 , ,",,';', :;:::" -- _, __ I
' ;' " I Por ejemplo, cuando en los datos 


.


:, : 
 ¡':;{ . J / 1\
J de un ",áfiro no, p«,entau: 
NEn . ...... c. ' . ' ---' - 
 F . I r G' 
rOR n=1 TO c2 J 
'.._-' ,>' 
. , " . - ..; ,'r rancIa ta la recia 


fr :::::
nl 
 
t;

 r" ") '.>
 


t
 

 
: 

 
PRINT IS, ryS . ," Queso 49 6 I 109 

:::i :::g: 
 
 
-P
 '
-
;;-:
;
_ 
rOR n=1 TO cI El Aceite, 
rDR .=1 YO c2 Jabón y Queso serían 
Ir INSTRISTRSCI In,.II. ',"100 THEN PRINT IS,LErrSCSTRSClln,.II,INSTRIST11SCl In,.n,", "1-11+", "."IDUSTRSUCn,')) ,INSTRCSTRSU (p,'))" 
,'1+1,21 ELSE PRINT IS,l(n,ol los Campos. 
!tE1T ',n Francia, Italia y Grecia serían 
CLOSE los Registros. 
LOCATE 30¡ lB: PRINT 'Proceso concluid ' 
SOSUD tecla Hay que destacar que el Campo 
SOTO .enu y el Registro son intercambiables 

ABfl carga entre sí, pero al final el 
,__o) Carga datos del disco. resultado es siempre el 
Ir rINDW'.SRr'I=" THfN LOCATE 3O;20:PRINT "No e.iste ningOn fichero ',6Rr':rOR n=1 TO ISOOO:NEIT:LOCATE 30¡20:PRINT STRINSSCSO,32 mismo. Se pueden 
I:SOTO rep 
Locm 2B¡IS:PRINT ErrECTSCS51¡"4,- CARSAR DATOS. ' introducir hasta 15 Campos (por 
rOR n=1 TO SOOO:N£IT ........"'.....m"'...."'-..'''''''''''''- ...", ejemplo: Enero, Febrero, Marzo, 


; CIlOR 1 . ";::,;-:::

."'" Abril, Mayo, Junio, Julio, etc.) y 
CLS 12 
 hasta 4 Registros (ejemplo: 
WINDOI/ .2 OPEN :
 ,'-, Petróleo, Gas, Carbón y 

:


 :
;;:26Rr' : " Electricidad). 
REPEAT """""" Para explicarlo de una forma 
CLS ...., más sencilla, lo primero que se 
LOCATE 20¡14:INPUT 'No.bre del fichero: ',IS ;- ,
 ._. :
 d b 1 
Ir LEN(fS)=O TI£N CLS:WINDOI/ 11 OPEN:6OTO .enu e e hacer es cargar e programa 
Ir INSTRIIS,',')OO THEN IS=LErTSIIS,INSTRCIS¡",'))"SRr' mE 1S=1S...6I!r' ,.... -- y elegir la opción 3 (Cargar datos) 
UNTIl rINDSCfS)O" e introducir un nombre cual q uiera 
OprN IS 1 NPUT IS 
INPUT 16, hS de fichero que sea * .GRF, y que 
Ir hSOlS TlO CLOSE:LOCATE 2O¡IS:PRINT 'El fichero es de tipo incorrecto,':rOR n=1 TO 15000:N£IT:SOTD carga2 hayamos creado previamente. 
INPUT IS,ci 
INPUT IS,c2 Después elegir la opción 1 


Organización del progrnma 


menú-sal ..,..........,..,.. 
sal-introduce .,......,.,..... 
introduce-representa ......,.. 
representa-act-desact ,....,.. 
act-desact-salva ............ 
salva-carga . . . . . . . . . . , . . . . , 
carga-er .......,.........,.. 
er-tecIa2 .............,....,.. 
tecIa2-[ Final ] .............. 


Menú principal 
Opción: salir 
Opción: introducir datos 
Menú de representación 
Opciones del menú de representac 
Opción: salvar datos 
Opción: cargar datos 
Gestor de errores 
Subrutinas 


Instrucciones de manejo 


A JlS TR. t f) \"I/mllll 2.'1 



(Representar gráfico) y F1 
(Representar por barras). Pues 
bien, los nombres que hay debajo 
de la coordenada 'X' son los 
campos y las columnas son los 
registros. 
pasaremos a explicar la opción 2. 
Cuando pulsemos nos pedirá el 
número de campos. Una vez 
introducidos los datos, se teclean 
los nombres de tipo alfanumérico, 
con un máximo de 10 caracteres. 
Nos irá indicando en qué número 
de campos nos encontramos y 
también nos mostrará, dentro de 
un rectángulo, el campo anterior 
para podemos guiar mejor. 
Después de los campos, 
pasaremos a la introducción de 
registros, 
mediante un 
proceso idéntico 


al anterior. 
A continuación vendrá la tarea 
más dura: la introducción de los 
valores. Dentro de un rectángulo 
aparecerán los datos que tenemos 
que insertar (por ejemplo: «Valor 
de Francia en Queso»). Cuando 
hayamos acabado de incluir todos 
los valores pasaremos a introducir 
los rótulos de la coordenada 'X', 
de la coordenada 'Y', la leyenda 
de la línea 1 y la leyenda de la 
línea 2. Las leyendas de las líneas 
1 y 2 son estos rotulo s que suelen 
aparecer encabezando el gráfico. 
Después de haber terminado de 
introducir todos los datos, la 
variable Intro tomará el valor 1. 
Opción 3: Graba en el disco los 
datos del gráfico actual, además 
de la variable l$ que sirve 
para saber, a la hora de 
cargar, si el fichero 


rOR n=1 TO cl 
INPUT 16,bSln) 
NUT 
rOR n=1 TO c2 
INPUT 16,aS(n) 
NEn 
INPUT 16,nS 
INPUT 16,'YS 
INPUT 16,IIS 
INPUT 16,12' 
rOR n=1 TO el 
rOR 0=1 TO c2 
INPUT 16,l(n,o) 
WEn .," 
ClOSE 
lOCATE 30¡ IB:PRINT 'Procoso concluido.' 
intro=1 
roll=O:acS='OESACTIVA RETICUl '. cS='COlOR, ':r=O 
60SUB tecla 
ClS 
WINOOl/ II OPEN 
6CTO .enu 
1__) Rutina de errores. 
lABEl er 
ClS 12 
WINOOW 12 OPEN 
STREA
 12 
WINOOW TIRE 'E R R O RES' 
lOCATE 6¡2:PRINT 'Se ha producido un error duranle la ejecución, revise las caU505.' 
lOCATE n;5:PRINT 'Pulse una tecla para salir.' 
REPEAT:UNIIl INKEVO-I 
ClOSE 
STREA
 Il 
ClS 
ClS 11 


.------------------------- . 
____n______ ______________ 


? 'Tipo de error ERR: ';ERR 
Ir OSERlno TI£N ? 'Tipo do mor OSERR: '¡OSERR 


? .=:::=======================- 


ENO 


t ----} Subrutinas. 


,--) Pul saci ón tecla (En venhna.) 
lAOEl tocla2 
WINOOW TlTlE 'Pulse una tecla para salir.' 
REPHT:UNTIl IN1(EYO-1 
WINOOW TlTlE '6 R A l' I C O S' 
6CTO represenh2 
,--) Respuesh CS/N). 
lABEl respuesh 
d=UPPERS ([NKEYS) 
Ir ,S='S' THEN sn=I:RETlJRN 
Ir d='N' THEN sn=O:RETURN 
60TO respuesh 
,--} 
arco de panhlla. 
lAOEl o.r 
ClS 
80r I¡ 1,8180,4999 rIll WITH 4 COlOR 1 
oor 925¡350,6175,4150 rIll WITH O COLOR I 
LIME 1000;4oo,70oo;400,7000;4400,1000;4400,1000¡4oo WIOTH 2 COLOR 1 
LIME 925; 350, 7075¡ 350, 7075¡ 4500, 925¡4500,925; 350 WIOTH 4 COLOR 1 
RETURN 
,--} Pulsación tecla (En panhlla.) 
lABEl . ocla 
lOCATE 26;20:PRINT 'Pulse una tecla para contínuar.' 
REPEAT:UNTIl IN1(EVO-1 
RETURN 
lABEl ros 
,S=UPFERS!lNKEYSI 
Ir d='V' THEN r=1 :RETURN 
Ir xI-'H' THEN r=2: RETURN 
Ir d='A' THEN r=3:RETURN 
60TO res 
,--} Ilprile !stadistica 
lABEI. oshdistica 
IroVE 5600; 4400:PRINT 'Estadi..tíca:' 
IroVE 6000;4250...,,'250:PRINT bI(n);'= ' 
IIOVE 7000¡4250-n'250:PRINT USIN6 '1I1.1I'¡yradoI/3.6¡ 
PRIIIT ' r' 
RETURN 
,--} Conversi6n a grados. 
lABEl yr ad05 
yudol=( (1 (n,o)oIOO) /tohl )'yrad 
mUR!! 
,--) Suoa do yrados. 
lABEl yr ados2 
yrad02-yrad02+yradol 
mURM 
,--} Altura de la linea o barra, 
LABEl all 
altura=ROUIIOCCl Co, n) 101 )'250) 
RETUI1II 


pertenece al programa Gráficos. 
Si la variable Intro tiene el valor 
0, la opción no se ejecutará. En 
caso contrario, se borrará la 
pantalla y nos pedirá el nombre 
del fichero (no es necesario poner 
el tipo del fichero). En caso de 
haber uno con el mismo nombre nos 
los indicará preguntando si continúa 
o no. Una vez realizada la grabación 
regresará al menú principal. 
Opción 4: Carga en memoria 
los datos de un relleno con trama. 
Si no encuentra en el disco ningún 
fichero de tipo *. GRF no se 
ejecutará la opción, en caso 
contrario, se borrará la pantalla y 
se abrirá la ventana 2, conteniendo 
el dire
torio de todos los ficheros 
* .GRF. En la ventana 1 será en la 
que se introduzca el nombre del 
fichero que se quiere cargar (no es 
necesario introducir el tipo del 
fichero, pero aunque se ponga, 
siempre el fichero será del tipo 
* .GRF). Si no queremos cargar 
ninguno se pulsa Intro. En caso 
contrario grabará los datos en 
memoria del fichero elegido, si es 
que existe. Entonces la variable 
Intro tomará el valor 1. Al pulsar 
esta opción y cargar el primer 
registro del fichero en memoria, 
comprobará si es de tipo correcto, 
es decir, comprobará si el primer 
registro del fichero es igual a la 
variable l$. Si la comprobación es 
correcta el fichero se terminará de 
grabar. En caso contrario, 
mostrará en pantalla que el 
fichero es de tipo incorrecto. 
Opción 5: Se optiene pulsando 
ESC, de manera que salimos al 
Basic2 o Gem Basic. Pedirá 
confirmación. 
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I__} Rólulos de pantalla. 
LABEL rolulos 
cl=INH40-LENU ISJ /2) 
LOCATE cli I,PRINT lIS 
cl=INT(40-LEN(I2S) /2) 
LOCATE ctj2:PRINT 12S 
Ir 1= I THEN RETURN 
cl=1750- «LEN (,yS) 1100) 12) 

OVE 100jcl:PRINT AN6LE (90);ryS 
c!=f40-(lEN(nS) 12\ 10100 
"OVE c!j600:PRINT nS 
RETURN 
,--) Valor .Axillo y .inilD 
LABEL oaxi ID 
rOR n=1 TO cl 
roR 0=1 TO c2 
n 1="AHHn,.) ,nI) 
n2=MINU (n,.),n2) 
NEn ", n 
aETURN 
.--) Dibuja Escala d
 ,,¡¡lOTES. 
LABEL escala 
L1NE 1000; 4S00, 1000j 1000, BOOO; 1000 
rOR n=4S00 TO 1000 STEP - 2S0 
L1NE 9S0;n,IOSO;n 
NEIT 
Ir dos=1 THEN dos=O:RETURN 
pl=INH7000/cl) 
rDR n=IOOO TO 8000 STEP pl 
L1NE n¡9S0,n; 10SO 
NEIT 
SET ErrECTS!O) 
nn= INT (1 OSO+p 112) 
rop n=1 TO el 
Ir LEN(U(n)oIOO}pl THEN U(n)=LErTS(U(n),SH',' 
cl=nn-(lEN(U(n) )0100) /2 
"OVE c!jBSO,PRINT bS(n) 
nn=nn+pl 
NEIT 
SET ErrECTS (]) 
ON , 60SUB ,eticula2, reticula, reticula 
RETURN 
,--) Dibuja ,elícula. 
LABEL reticula 
rOR n=IOOO TO 4S00 STEP 2S0 
LINE 1000jn,BOOOjn 
NEXT 
Ir ,=2 THEN RETURN 
LABEL relicula2 
rOR n=IOOO+pl TO 8000 STEP pl 
LINE n; 1000,n;4S00 
NEIT 
RETURN 
'--
 Dehrlllinaci6n de filas y valores de cada una. 
LABEL nu.ero 
n3=nl +( 10-(VAURI6HTS(STRS(nl) ,1)))) 
Ir n2(0 THEN 60SUB calcula ELSE bO=0,b4=1000 
RETURN 
LABEL valores 
II=ROUNO(n3f(14-bO) ) 
Ir nl<=14 AND n2}=0 THEN n3=14:11=1I60TO y Si el relleno es con trama 
Ir RI6IITS(STRS(II),I)(}'O' THEN 11=II+UO-VAURI6HWSTRS(II),I))),n3=03+ROUNO«II-ROUNO(n3f(14-bO)))oU4-bO)):n3=n3-VAURI6HWSTRS se utilizarán todas las 
(n3),1)) '0 
LABEL Y tramas menos la 8. SI e<; 
Ir n2}=-100 ANO n2(0 ANO nl<=700 AND nDIO THEN n3=n3+10 mediante líneas de diferentes con color, se utiliza la trama 8. 
12=03-11 1 " l ' d ' b 1 1 d ' f 1 
rOR n=4200 TO 7S0 STEP -2S0 co ores, utI Izan o slm o os a pero con I erentes co ores. 
a2=12-11 final de cada campo. ESC: Regresamos al menú 
NEIT F3: Nos permite ver el gráfico principal. 
12=12+11 ' 
Ir n2(0 ANO 12}n4 THEN 11=II+ROUND(n4/12):n3=n3+ROUNO(n4/12):60TO y en sectores o en tarta. Hasta aqUl lo que es el 
Ir 1200 ANO n2}=0 THEN 03=n3...2:60TO y Sólo se representarán los programa. En cuanto a las 
"1M 200¡44S0:PRINT USIN6 'I"III,'¡n3 datos P ositivos. modificaciones se P odría P oner la 
12=n3-11 ' 
rOR n=4200 TO 7S0 STEP -150 Pueden surgir dos tipos de opción de representar por barras 
NOVE 200¡n:PRINT USIN8 ''''''','¡12 representación. Si hay más de un apiladas. En el caso de haber 15 
:
;;2-11 registro, la tarta se dividirá campos y 4 registros (que es el 
RETURN proporcionalmente máximo de cada uno) se 
In} Dibuja linfa 'O' y calcula filas. en campos y éstos en representarían un total de 60 
LABEL calcula ." 
Ir n40-1=n3 THEN bO=7:60TO con ELSE n4=n2-UO-(VAURI6HWSTRS(n2),!)))) registros. Pero SI barras, con lo que cada barra 
04=040-1 solamente hay un sería muy fina y es aconsejable 
bO=ROUND(n41ISf(n3+n4)) " 1 . " 
Ir bO=14 THEN bO=13 registro, a tarta utilizar el relleno con color, ya 
Ir bO=O ANO nno TH£N bO=1 se dividirá en campos. En que el de trama no se notaría. Si 
n4-n41-1 l . d 1 h . d " l O 
Ir-n4(='100 ANO n3>l000 TllEN bOcbO+1 cua qUiera e os casos, nos ay mas e un c,ampo y se utllza 
LABEL con mostrará una estadística en que se la representación por sectores. los 
bl=b00150+IOOO muestra el porcentaje de cada nombres de los campos no 
b4=bl 1 d ' l 1 d d 
L1NE 'lSO'b( BOOO'bl campo con respecto a a suma e aparecenan a a o e su sector 
RETURN " , todos ellos. correspondiente. 
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Opción 1: Representar 
gráfico 


F4: Nos permite activar o 
desactivar la retícula de difcrentes 
formas. Al pulsarla por primera 
vez, ésta se activa y aparece la 
clase de retícula, que puede ser 
vertical, horizontal o ambas. Para 
des activar se pulsa de nuevo. Si 
está activada y queremos variar el 
tipo, se pulsa dos veces F4. 
F5: Nos permite variar el tipo 
de relleno para las barras y los 
sectores. Tenemos dos opciones: 
trama o color. Por omisión, el 
relleno es por trama, pero para 
cambiar a color se pulsa 1<5 y 
para volver a trama 
se vuelve a pulsar F5. 


Al pulsar esta opción, y si la 
variable Intro es igual al, se 
pasará a un nuevo menú de 
opciones que utiliza las teclas de 
función. Cuando hayamos 
acabado con cualquiera de estas 
funciones, basta con pulsar una 
tecla para volver al menú. 
Fl: Nos represeiHa el gráfico 
mediante barras. 
'F2: Nos permite ver el gráfico 
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Shadow 


Skimmer 


.. 


El ataque de la Sombra Deslizante 


Si hay algo realmente destacable en este juego, 
Shadow Skimmer, es la acertada mezcla entre la típica acción 
basada en el fuego a discreción y la búsqueda de objetos. 
Decimos esto, porque mientras vamos eliminando las 
naves enemigas, deberemos ir buscando la manera más 
rápida para destruir determinados objetos, 
imprescindibles para la misión. Interesante, ¿no es cierto? 


T odo marchaba como de 
costumbre en el viaje de 
reconocimiento. Era tan 
rutinario que, también 
como casi siempre, el 
aburrimiento reinaba en la 
Shadow Skimmer. Este caza de 
combate espacial había sido 
diseñado según los últimos 
avanzes tecnológicos y su capitan, 
así como el resto de la 
tripulación, ardían en deseos de 
comprobar su poder de ataque. 
Sin embargo, parecía que en esta 
ocasión tampoco tendrían 
posibilidad de estrenar su 
flamante nave. Debido a este 
pensamiento, la tripulación se 
hallaba totalmente relajada y 
leyendo o jugando a las cartas. 
De repente, una exclamación, 
mezcla de sorpresa y temor, se 
oyó fuerte por el 
intercomunicador interior. El 
sopor de los hombres de la 
Shadow desapareció de inmediato, 
puesto que el capitán, frío y 
calculador, no era amigo de 
salidas fuera de tono. lo que 
había causado la inusual reacción 
del capitán, muy justificada 
ciertamente, no era otra cosa que 
un descomunal navío que se 
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aproximaba al sistema solar. Su 
tamaño era aproximadamente el 
de un planetoide, o satélite, y por 
las extrañas inscripciones que 
había sobre su superficie, estaba 
claro que no pertenecía a la raza 
humana. La Shadow Skimmer se 
acercó tímidamente a este colosal 
navío, con la intención de 
establecer comunicación. Bajo una 
gran tensión, el capitán comenzó 
a dirigir por radio mensajes a los 
lejanos visitantes. Intentó 
transmitirles los deseos de paz de 
los humanos, ya expandidos por 
casi toda la galaxia. Lo único que 
recibieron a cambio de este 
pacífico mensaje fue una 
andanada de un cañón láser, 
capaz de destruir una nave varias 
veces mayor que el Shadow 
Skimmer. Rojo de ira, pero sin 
perder un ápice la compostura, el 
capitán ordenó al encargado de 
transmisiones que pidiera 
refuerzos inmediatamente, y 
ordenó a sus hombres, ya situados 
en puestos, disponerse para el 
ataque. En la cabeza de aquellos 
hombres estaba la terrible certeza 
de que se iban a enfrentar al más 
poderoso enemigo de su vida, tal 
vez incluso fuera la última vez 


que entraran en combate. Aunque 
el capitán tenía los mismos 
presentimientos, no dejó que éstos 
inundaran su mente impidiéndole 
pensar. Casi inmediatamente de 
haber dado la orden de listos para 
el combate, se había puesto a 
elaborar la estrategia más 
adecuada para la misión. Después 
de calcular las posibilidades de 
éxito de cada una de las opciones, 
todo esto a la velocidad que 
requería la situación, se decidió 
por una que parecía la más 
acertada: intentaría volar los 
sistemas de propulsión de la nave. 
Esto daría a los refuerzos la 
oportunidad de llegar a tiempo, y 
tal vez, en el mejor de los casos, 
hacer saltar por los aires la nave 
invasora. Lo primero que hizo 
para comenzar su plan, fue 
realizar un análisis espectral de la 
construcción del planetoide, con 
la finalidad de encontrar la 
posición exacta de los sistemas de 
propulsión del gigante. Cuando 
esto se hubo conseguido, dio la 
orden de eliminar, con los 
cañones láser, una de las puertas 
de salida y entrada de los cazas de 
defensa de éste. Cuando se disipó 
el humo, y pudo ver que la 
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ZONA 1 


Empezamos a jugar 
en la pantalla 2-1 y, 
desde allí deberemos 
llegar a «tiro limpio» 
hasta la pantalla 
2-7. Por la puerta 
que allí se encuentra 
accedemos a las bo- 
degas (parte 1) de la 
nave nodriza y des- 
truimos el generador 
que hay en la panta- 
lla 2-3. Salimos de 
las bodegas al inte- 
rior de la zona 1, y 
nos dirigimos a la 
pantalla 2-10. Sali- 
mos por la puerta allí 
situada y nos halla- 
mos en las bodegas 
(parte 2) del navío. 
Nos metemos por la 
puerta de la pantalla 
3-1 y aparecemos en 
la zona 2. 


1-1 2-1 3-1 
1-2 2-2 3-2 
1-3 2-3 
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entrada había quedado libre, el 
capitán dio potencia máxima a los 
motores gravitacionales y se lanzó 
a toda velocidad para penetrar en 
el interior de la nave enemiga, con 
la intención de llegar hasta donde 
estaban los propulsores. 
Este lugar no era otro que las 
bodegas, la zona más interna de 
la nave, y llegar allí no iba a ser 
muy fácil. Menos todavía lo sería 
conseguir destruir el objetivo, 
puesto que los sistemas láser de 
defensa, además de los extraños 
androides que patrullaban los 
corredores, no parecían acogerles 
de muy buena forma. Al menos, a 
esa conclusión se podía llegar 
después de ver en qué forma 
disparaban. Ante esta situación 
tan poco cómoda, los hombres de 
la Shadow Skimmer tomaron la 
única actitud posible: ajustar al 
máximo de potencia sus cañones 
iónicos y, haciendo gala de una 
puntería notable, fueron 
arrasando todo lo que vieron a su 
paso. Mientras tanto, el operador 
del ordenador de a bordo iba 
comunicando al capitán la 
dirección a seguir para encontrar 
los motores del navío enemigo. 
Tras recorrer prácticamente toda 
la zona 1 de éste, en la cual se 
hallaban las tuberas de escape de 
los motores, encontraron la 
escotilla de acceso a la bodega 
donde se encontraba uno de los 
generadores de propulsión; la 
atravesaron y convirtieron en 
añícos el prímero de los tres que 
tendrían que destruir. Volvieron 
de nuevo a la superficie de la 
zona 1, y por otra escotilla 
pasaron a la zona 11. Ésta, al 
igual que la anterior, o más si 
cabe, tuvieron que cruzarla de 
punta a punta, para encontrar la 
escotilla de acceso ala bodega en 
donde estaba el segundo 
generador. Cuando estuvieron 
situados frente a él, hicieron 
fuego todos los cañones de la 
Shadow y destrozaron, entre 
exclamaciones de júbilo por parte 


5-1 6-1 
1-1 2-1 3-1 4-1 5-2 6-2 
1-2 2-2 3-2 4-2 5-3 6-3 
 
1-3 2-3 3-3 4-3 5-4 6- 4 11 
1-4 2-4 34 4-4 s-s 6-51: 
2-5 3-S 4-5 5-6 6-6 t 
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ZONA 2 
Cuando salimos a la zona 2 lo hacemos por la pantalla 1-4, y deberemos bus- 
car la puerta que está situada en la 5-2. Salimos a los subterráneos, en este 
caso a la parte 3, y destruimos el generador que hay en la pantalla 1-3, busca- 
mos después en la zona 2 la puerta situada en la pantalla 5-1 y entramos de 
nuevo al subterráneo, exactamente por la puerta situada en 2-1, para volver 
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Cargador de dI 
Hazte indestruc .: 
Con cuaIq . 
cosas que no ule
a de las dos 
de disco, tan:o °e
ece el.carlado, 
Como juego. erl
a .nfinita 

Onseguirem


:neI?1IIOS, 
Indestructibles . mIsmo, ser 
dos Posibilidad SI cogemos las 
nuestra mis.ó es, el cumplir 
Paseo. Por 
t será un simple 
COgemos en r
 J?arte, si sólo 
PDdre m ergla Infinita 
os masac 
enemigos como rar a nuestros 
10 OPENOUT- _. nos plazca. 
20 110DE O O .IfEIfORY 999:CLOSEINT 
30 BOROER O. FOR 
NK a,b:NEXT' a=o TO J5:_ &:1 
40 LOAO- h 
SO L OAO - s s adow.scn-,49JS2 
SCOde-'REI1 
60 "OOE J:LOCATE I 
?OO,3312O 
a infinita ? -;:6:S
:.PRINT .fll". 
THEN PO/{E &2E51 O J10: IF "..S. 
1
 LOCA TE 5,15:P;UNT _ 
'Jgos ? -;: 60SUB . Jue
o sin ,ftt 
POKE &3AC6,20J 170.1F d.-S. TIfE. 
80 1f00E O 
90 BDRDER O'FO 
EXT . R a=o TO JS: INK 1,0:. 
100 LDAO-. us ' .. 
IJO LOAO-Ch lC .REIf &COOO,&9D1 
120 BOROER ;;;:;:R:11 64J60,1316 
NK a,b:NEXT a a-O TO IS:R£AD tia 
130 CALL &B019 
J40 CALL 1000 
ISO OATA O J3 26 
6,3,2S,J6,i89 ,20,J4,5,2,J,24 J5 
160 DATA o 26 o ' , 
,8,4,9,18,22 ' ,J3,J4,2,J,24,J5,6,3 
110 a'=--:WHILE ._., 
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otro extremo de la zona. Cuando 
llegaron allí, penetraron hasta 
donde estaba la última parte de su 
objetivo, ajustaron al máximo 
toda la potencia de sus láser y... 
¡¡BOOM!!, el generador fue 
destruido. La alarma del colosal 
navío comenzó a funcionar de 
una manera estridente, y el 
capitán de la Shadow decidió que 
lo mejor sería salir de allí cuanto 
antes. Lo malo fue que tendrían 
que encontrar otro portón de 
salida de naves enemigas, dentro 
de la zona III, y utilizarlo ellos. 
Hasta que consiguieron esto 
sufrieron una demora suficiente 
como para observar como crecía 
el pánico entre los alienígenas. 
Algo gordo iba a pasar. Menos 
mal que encontraron a tiempo un 
portón de salida; lo volaron y, 


de sus artilleros, la segunda etapa 
de su objetivo. Volvieron a los 
corredores de la zona y, cuando 
encontraron otra escotilla, se 
llevaron una sorpresa al 
comprobar que les llevaba de 
nuevo al subterráneo en donde 
habían estado momentos antes, 
aunque el sitio era diferente. 
Salieron por otra escotilla que allí 
vieron y pasaron a la zona III. Ya 
quedaba menos para terminar la 
misión. Esto les hacía sentirse 
doblemente esperanzados, aunque 
la Shadow ya estaba bastante 
maltrecha debido a los impactos 
recibidos. Sin la menor dilación, 
fueron a buscar la escotilla de 
acceso al subterráneo donde 
estaba el último generador a 
destruir. Como en los anteriores 
casos, se encontraba situada en el 


una vez fuera, a considerable 
distancia, presenciaron un 
cataclismo de considerables 
consecuencias. La explosión del 
planetoide enemigo. 
Una vez dicho todo lo referente 
al camino a recorrer para 
terminar el Shadow Skimmer, nos 
gustaría contaros algunas cosas 
que habrá que tener en cuenta 
durante el desarrollo del juego: la 
primera de éstas es la necesidad 
que tendremos de cambiar la 
posición de nuestra nave, cuando 
vayamos a pasar por alguno de 
los pasadizos que, marcados con 
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una especie de X, están situados 
por, las zonas de la nave. Para 
poder lograr esto deberemos 
pulsar ENTER, o intro, y 
veremos cómo nuestra nave gira 
sobre sí misma y, donde antes 
mostraba su cabina de mando, en 
negro, aparece ahora su parte 
inferior señalada con algo 
parecido a una X también. Sólo 
en esta posición podremos pasar 
por el pasadizo. Las escotillas o 
puertas de acceso a las bodegas y 
subterráneos de la nave, se 
pueden diferenciar por las tres 
barras que tienen sobre su 
superficie. Para poder entrar a 
través de ellas deberemos 
ponemos encima y pulsar fuego. 
A continuación nos encontraremos 
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2-1 3-1 4-1 5-1 6-1 
1-1 2-2 3-2 4-2 5-2 6-2 
1-2 2-3 3-3 4-3 5-3 6-3 
1-3 2-4 3-4 4-4 5-4 6-4 
1-4 2-5 3-5 4-5 S-S 6-5 
1-5 


ZONA 3 


En esta zona empezamos en 
la pantalla 1-5, y deberemos 
dirigirnos a la pantalla 6-1, 
entramos por la puerta que 
encontraremos y accedere- 
mos al subterráneo (zona 4), 
destruimos el generador si- 
tuado en la pantalla 1-1 y 
volvemos a la zona 3. Será el 
momento de lIegarnos a la 
puerta situada en 4-1 y salir 
corriendo, puesto que nuestra 
misión habrá terminado. 


en las bOdegas. Los generadores 
que por si no os habéis dado 
cuenta diremos que están todos en 
los subterráneos, tienen una gran 
X, otra vez este símbolo, sobre su 
cuadrada superficie. Para 
destruirlos sólo deberemos 
dispararles, eso sí, teniendo en 
cuenta nuestra nave, deberá estar 
mostrando su cabina de mando. 
Cuando muestra su parte inferior, 
la nave no dispara. 
Esto es lo más destacable del 
desarrollo de un juego que en 
realidad no es otra cosa que un 
laberinto, en donde apretar el 
gatillo va a ser una constante. 
Gráficamente está muy bien 
desarrollado, siendo el colorido 
utilizado rico y da vistosidad al 
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juego. El movimiento es 
adecuado, y el efecto de rebote 
sorprende por su consecución. Los 
efectos sonoros son los que se 
podría esperar, y la música del 
juego es realmente buena. 
Esperam os que todo lo dicho 
Originalidad 
Gráficos 


Movimiento 


Sonido 
Dificultad 


Adicción 
Valoración final 


cumpla perfectamente con la 
misión que le hemos destinado, la 
de seros útil de verdad, y que 
disfrutéis con Shadow Skimmer, 
juego de The Edge, distribuido 
por Erbe, y que a nosotros nos 
ha parecido muy entretenido. . 
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"...y he aquí que un poderoso 
guerrero aparecerá. 
procedente de los helados 
eriales del Norte. y se alzara 
solo contra las fuerzas del 
mal..:' 
f' UlJrodl
 lA Muerte 
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Barbarian 


un1l.' pUl elemplo el monstruo 
_'[de que 
e lleva al que pierde o 
a abeza
 de las serpientes, y 
Ilgurw má:- que deberéis ver sobre 
Idl al 'mal ael Juego. 
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Para poder cargar estos nuevos 
gráficos hay que utilizar el 
Cargador Universal y copiar el 
listado 1 mediante la opción l. Al 
terminar se debe salvar a cinta 
con la opción «Salvar binario» 
con el nombre Bargraf. 
A continuación copiar ros 
cargadores de la primera o 
segunda parte, según sea la que se 
quiere jugar. 
Ejecutar estos cargadores con la 
cinta original del juego. Cuando 
se haya acabado la carga se oirá 
un beep, habrá que colocar la 
cinta que contenía el fichero 


'! 


Bargraf, salvado anteriormente, y 
pulsar una tecla. U na vez 
cargados los nuevos gráficos 
comenzará el juego. 



.- 


1 OOOOOOOOQOQOOOOOOCF8AOO. 159 
2 04400C0004408E008ECFOA8A. 3FD 
3 CFSE58AOE50CseAOFOOCFOAO. 6CA 
. 50FOFOOO50FOOCOooOse0800. 30C 
5 ססoo o00ooo00000000000000, 000 
6 OOOC8AOOO44DCF00454D8EOO. 206 
7 CFCF8EOSCFOCOAAOE50C58AO. 672 
E' SSA458A004FOFOoo04F05S00, 524 
9 00A406000oo0000000000000. OAC 
10 OOOOOO(I(IOOOCOS0045SE4D(IO.134 
11 04C'FCFooOCSE5S8A40SE58AO. 41' 1 
12 E50COAAOE50CA40650FOA4oo, 5EC 
13 50F0A400000CAOOOOO< 1 000(10. 290 
14 OOOOO()OOOOOOOOOOOOCF8AOO. 159 
15 04400C0004406EOOOECFOA6A.3FO 
16 CFSE58AOE50C5SAOFOOCFOAO. 6CA 
17 SOFOFOOOSOFOOCOOOOS80SC 1 0. 30C 
18 000000000000000000000000.0(10 
19 OOOC8A00044DCF00454DE:EOO, 2[)€. 
20 CFCF8E08CFOCOAAOE5OC5SAO. 672 
21 56A458A004FOF00004F05600.524 
22 O0A408000000000000000000. OAC 
23 00C)c)(II)OOOOOCOB<J0458E_OOO. 134 
24 04CFCFooOCSE58SA40SE58AO. 41'1 
25 E50COAAOE50CA4085OFOA400.5EC 
26 SOFOA40000OCAOO(IOOOOOOOO. 290 
27 000000000000(1045913220000,102 
26 CF73A200459B77F700457726. 514 
29 F8009BFFAE59007750FBF300. 65E 
30 77A6A6FF(IOFBF3FFOCOOF6FF, 7B5 
31 50FFooFBAEAEAA04FBAEAAOO. 6B4 
32 04F750AAoo04F751>OO0051F7. 4AA 
33 SDAAOOSSA6FFF 70OSSAE3F26. 565 
34 0004AE30600004AE30306000. 354 
35 AEOC302000FF 181820005518. 2C6 
36 OC0800551 00COOAA50500COO. 202 
37 AEFFFFOC0050AEFFOOoo0400. 406 
36 060000000oo60C00041SCOOC, 106 
39 060C 18302000oo0COC080000. 09C 
40 000000000000459B220000CF .101 
41 73A200459B77F700457726F6. 540 
42 009BFFAE590077SOFBF3(1077. 50A 
43 A6A6FFooFBF3FFOCOOFBFF50. 79B 
44 FFOC'FBAEAEAA04FBAEAA0004. 65B 
45 F750AA0004F75DOB0051 1'750. 503 
46, AA005SA6FFF70055AE3F2800. soe 
47 04AE30608oo4AE24186000AE.30E 
46 163020001'1' 18242OCI0551824 . 254 
49 08oo55042EOOAAS004AAOOAE, 21'2 
50 FF04AA0050AE040200040646. 312 
51 42000000249020040C303(100,186 
52 OCOCO( OCoo00040COC060oo0. 054 
53 0000000000459B22oo00CF73.244 
54 A200459677F700457726F800,4CO 
55 9BFFAE59007750F8F3OO77A6.660 
56 A6FFOOFeF3FFOCOOFeFFSOFF. 71'4 
57 OOF8AEAEAA04F8AEAA0004F7. 653 
58 5OAA0004F751>OO0051F750AA.486 
59 0055A6FFF70055AE3F280004.462 
60 AE30600004AE303060(IOAE30. 42E 
61 OC2000FFOC30200055183006. 22C 
62 0055103FOOAA500CFFOOAEFF. 470 
63 00550050AE0655AA040C020 1 . 26A 
64 02(10108004020430301OCOOC .106 
65 OCOOOC300oo00cOCOCoo0045.080 
66 9B220000CF73A200459B77F7. 4EF 
67 OO457726F80098FFAE590077. 41'5 
68 SOFeF3(1077A6A6FFOOFBF3FF. 7FA 
69 OCOOF8FFSOFFOOF8AEAEAA04. 667 
70 FeAEAA0004F75DAAoo04F750. SAO 
71 000051F750AA0055A6FFF700.548 
72 55AE3F2BO(104AE30600004AE. 3E 1 
73 303080UOAEOC1B2000FFl824.300 
74 200055182408oo55152EOOAA.1FB 
75 5055AEOOAEFF55AE0050AEAE. 5C9 
76 AAOOO406AEAAOOO0000402oo. 214 
77 0000040200040C 18CooOOCOC, 106 
76 1830200004OCOC080COC59F3.1FO 
79 A60COCOOOCFFEA01OCOCOC50. 411 
60 FFCOCOA6OCOCFFFFC084A60C. 731 
61 5OAE50COOCOOOCOCOCFFC04S. 468 
82 OCOCOC50FEC0040COCOCSOFE. 492 
83 E8FCFCOCOCSOFEFCFCFCOCOC. 75F 
84 FFFEF8A4SCOCOCFeFEA40COC. 6C2 
65 OC50F7F6A40COOOCSOFFF6A4.614 
86 23060C5DF8F48103030C50F8.49C 
87 l' 4A 1060906501'81' 4Al OCOC06. 485 
68 50F8FOA4000cOCOCFFF2A40C. 580 
89 OCOC50FFF2F 40COCOCSOFFF8. 505 
90 FOOCOCOC5OFFFeA60COCOC5O. 492 
91 FFF8OCOOOCOCSOFFAEOCOCOC.4se 
92 OC5DFFOOOCOCOCOC5OFFOCCC.318 
93 OCOCOC50FFOOOCOCOCOCOCOC.l04 
94 OCOCOCOCOCOCOCOCOCOCOCOC. 090 
95 OCOC59F3A60COCOCOCFFFFF3.528 
96 OCOCOC50FFFFF8A60COCFF50. 594 
97 EAF8A60C50AEFFC084A6OCOC. 6A3 
913 50FFCOOCÓCOCOC50FEC05COC, 4CF 
99 OCOCFFFEE8FCFCOCOCF8FEFC. B02 
100 FCFCOC5OF7F6FCA45COC50FF. 782 
101 F6F80COCOCSOF8F4A40COCOC.526 
102 501'81'481 03060CSOFeF 4Al 06.605 
103 060C50F8FOA40COOOCOCFFF2. 511' 
104 F4000cOC50FFF2F0A40COC5O. 561' 
i05 FFF858A4OCOC50FFF8A6OCOC. 623 
106 OC50FFF8A6OCOOOC50FFF80C. 590 
107 OCOCOCSOFFAEOCOCOCOCSDFF. 38A 
108 OCOCOCOCOC50FFOCOCOCOCOC.l04 
109 OCOCOCOCOCOOOCOCOCOCOCOC.090 
110 OCOCOCOCOCOCOCOCOCOCOCOC.090 
111 OCOOOCOOOCOCF3F3A6OCOCOC, 21'8 
112 50FFFFF30COCOCFFFFFFF8OC.776 
113 OCOCAEFFFFF8A60C5050FFFF. 729 
114 AEA60COCFFFFF6ACOCOCOCF8. 628 
115 FeE804OCOCSOF7F6E85CFCOC.765 
116 5OFFF6FCFCFCOCSCF8F4FCAC.946 
117 SCOC5DF8F4F8A40c0cSOFIIF4.684 
::
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120 OCSOFFF8OCOCOCOCSOFFF8A6. 590 
121 OCOCOC50FFFeA6OCOCOCS\)FF. 4Al 
122 FeOCOCOCOC50FFAEOCOOOCOC. 365 
123 SOFFOCOCOCOCOC50FFOOOCOC,318 
124 OCOCOCOCS9F3A60COCOCOCE2. 334 
125 OSFFOCOCOC59COCOFFAEOCOC. 596 
126 594ecOFFFFOCOCOCOCCOAE50.5SA 
127 AEOCOC84COFFoCÓCOCOCE8CO.4EI 
128 FDAEOOOCFCFC04FDAEOCOCFC.74E 
129 FCFCFDAEOCOCAC58F4FDFFOC.788 
130 OCOCOC58FDF7OCOCOCOCS8F9. 31' 1 
131 FeAEOC091358F9FFAEOC0303.4El 
132 72F8F7AE09060952F8F7AE09.61F 
133 OCOCS2F8F7AEOCOCOCseFOF7. 56A 
134 AEOCOCOCS8F1 FFOCOCOCOCF6. 4'42 
135 F1FFAEOCOCOCFOF7FFAEOCOC.66E 


13
 OC59F7FFAEOCOCOCOCF7FtAE.5DD 
137 OCOCOCOCSOFF.AEOCOCOCOCOC.276 
138 FFAEOCOCOCOCOCFFAEOCOCOC. 38A 
139 OCOCFFAEOCOCOCOOOCOCOCOC. 225 
140 OCOCOCOCOOOCOCOCS9F3A6OC. 2SE 
141 OOOCOCF3FFFFOCOCOCS9F7FF. 588 
142 FFAEOCOCS9F70SAEFFOOOC59.600 
143 48COFF5Dl\EOCOCOCCOFFAEOC. SAl' 
144 OCOCACCOFOAEOCOCFCFC04FO.710 
145 FFOCOCFCFCFCFOF7OCOCACse. 718 
146 FCF9F8AEOCOCOCF 4F9FFAEOC. 768 
147 OOOC58F8F7AEOC090372F8F7. 586 
148 AEOC090952F8F7AEOCOCOCse.437 
149 FOF7AEOCOCOCF8F1FFOCOCOC.5C5 
150 58FOFlFFAEOCOC58A4F7FFAE.79E 
151 OCOCOC59F7FFAEOCOCOC59F7. 495 
152 FFAEOCOCOCOCF7FFAEOCOCOC, 4A5 
153 OC50FFAEOCOCOCOOOCFFAEOC. 408 
154 JCOCOCOCFFAEOCOCOCOCOOOC. 225 
155 OCOCOCOCOCOCOCOCOCOCOCOC.090 
156 OCOCOCOOOCOCOCOCOCOCOCOC,090 
157 59F3F3OCOOOCOCF3FFFFAEOC.61A 
lse OCOCF7FFFFFFOCOCS9F7FFFF.772 
159 50OCOCS95DFFFFAEAEOCOC5C, 41'9 
160 F9FFFFOOOCOCE804F7F70COC. 600 
161 FCAC04F9F8AEOCFCFCFCF9FF. A16 
162 AEOCACSCFCF8F7AEOCOC58F 4.681' 
163 F8F7AEOCOCOCF8F8F7AEOCOC. 66E 
164 OCF8FOF7AEOCOC58FOF 1 FFOC . 61'5 
165 OCOCseFOF1FFAEOCOCOCOCF7, 525 
166 FFAEOCOCOC59F7FFAEOOOCOC.4F2 
167 59F7FFAEOCOOOCOCF7FFAEOC. 500 
168 OCOCOCSOFFAEOCOCOCOCOCFF, 369 
169 AEOCOCOOOCOCFFAE003C7COQ..34F 
170 00143CFCASoo3C8CFCA8007C. 50C 
171 FCecA8007C7C8C7C007C7CFC. 684 
172 FC007C8CFCA80056BC8CA800, 64E 
173 3CFCFC28oo287C7CA800 143C, 474 
174 8CA8(107C9E8C28007CF 4FC8A. 658 
175 00FCE5FC8AOOFCESF02800FC. 75C 
176 E5CF2800FC3CCF7CA8FC603F. 6AF 
177 7C7CFC6D3F7C54FC6D9F28A8. 648 
178 FC789F8A22FC8C9F8AOOFCec. 758 
179 B5A 1 027CFC605403DEFC7854. 63A 
180 0314FC8C01A9147CFC00023C.443 
181 3C7CA8oo293C7CA800380330. 364 
182 000038030300003803032AOO. OAC 
183 3803032A003603292A003803, 13A 
184 3E2A0038033E2A003F033E2A.188 
185 003D033E2A005OF0782A0050.20A 
186 FC7C000050FC7CO(1005OFC7C. 508 
187 000050FC7C0000508(;F 4A800. 470 
lB8 50BCF4A8(IOF48CF4A800F48C.7A4 
189 l' 4A800F 4A87CA800F4A854A8. 61' 4 
190 001'4285400001'4(1054000054. 30C 
191 005400(10540054000QS4007C. 1 CC 
192 FC00540OFCFCA8FC8C3C3C3C. 65C 
193 FCFC3C28(1000003C7COOOOOO. 314 
194 000 ססoo 0 143CFCA80ooo00(10. 1 l' 4 
195 00003C8CFCA6000000000014. 280 
196 7CFC8CA800oo0oo00014547C.3CO 
197 8C7COOooOOOOOOO 154 7CFCFC , 401 
1913 oooOoooooOI4548CFC8COOOO.20C 
199 0054A814548C8CA8000OFCFC. 57C 
200 5400 14FCBC280054FC3CA800. 47C 
201 003CFC28oo64540054ooBC7C.394 
202 7CA80054oo890000F80E8CA8,568 
203 14FCoooOO054F80EE07CFCFC. 698 
204 0011 0054F80AE07CFC3COOOO. 408 
205 00548CCFE57C3COooOll0054.3El 
206 BC609E78ooo00oooo0548C9F. 3EO;: 
207 6F3CoooooO 11 00548C9F6FOO. 20A 
208 0000000000548CCF6FOOOOOO. 24E 
'209 (1011 00FC8CCFFOFCA8000000, 52C 
210 00FCFCFOFCA85400oo 11 0054 . 545 
211 FCFCFC54000000000014FCFC.554 
212 3C00A80000 11 (10453CFC6000. 201' 
213 000000000045CF3C600oo000.180 
214 (1011 00003C3C280000000000. 081 
215 0000FCFCA8ooo00000110015.2C6 
216 383C2AOOOOOOOOOOOO 150303.089 
217 2AooOOOO<101l 001523032AOO. OAO 
218 000000000031'230317000000. 07C 
219 (1011 (102823031 7000ooo0000, 079 
220 (102823031700000000110028. OA4 
221 23161 70000000000003F233E. 01'0 
222 170000000011 oo15233E 17(10. 085 
223 ooOOOOOooo15233E17000000. 080 
224 001100150378850000000000.156 
225 0050F078A8ooo00000110050,2Cl 
226 FC78ASOOOOOOOOOOOO5OFC78. 3EO 
227 A8000oooo0110050FC78FCOC', 379 
228 0000000000141'4 78FCOooOOO. 27C 
229 000300001'4 78FCOOO<)(I0 1556. 206 
230 0200F47CFCoooooo15A90250.37E 
231 FC7CA800000015030250FC7C. 402 
232 A800000015282A50l\8F 4A800. 3A6 
233 0000003F2A50A854A800oo00. 250 
234 0000005OA854A8oo000oo000. 1 1'4 
235 0050A85400000oo000000050. 19C 
236 A8540000000oooo000542854, lCC 
237 00000000003C2854OC'FCFCoo. 280 
238 0000 143C3C5428FCFC-A80000. 3A8 
239 003C28FCBC3C3C3COOOO(lI)OO. 2DO 
240 00FCFC3C2800000oo0000000. 25C 
241 00332200000011 CF33000000. 168 
242 CF8F'380C>0000675E4F220000. 321' 
243 8FFCADeA00450E74748Aooll.568 
244 OEFCFC8AO00067FCE0980000, 648 
245 67A9E022oo00CF7C60220000. 31'9 
246 CF366722000045898A8AOOoo. 3AO 
247 EOOEOEA80054EOFCEOA80054. 777 
248 FCOEFCFC0054FCOEFCFC0054. 84C 
249 54FCFCS4005433FC89760054. SAlE. 
250 37FC807600543976337C0054, 46C 
251 14 7C3C5400FC54FC8C5400FC. 578 
252 54FCA854A8A854FCA854A8A8, 738 
253 54FCA864A8A8548CA800A8A8. 6114 
254 FCFCA800A8A8FCFCFCOOA8A8. 834 
255 FCFCFCOOA8A8FC3F7EA8FC-A8.849 
256 FC3F7EA8FCA8FC80FCA87C00. -iOE 
257 FCASFCA80000FCABFCA80000. 690 
258 FCA8FCA800ooFCA854A80000.SE8 
259 FCAS54A80000FCA854FCOOOO ;594 
260 FCA854FCOOOOFCA854FCOOOO. SE8 
261 FCA854FC000054A854A80000. 4EC 
262 54A854A8000054A654A80000. 31'0 
263 54A854A80000FCOC'00FCOOOO, 31'0 
264 FCOOOOFCOOOOFCOOOOFCOOOO. 3FO 
265 FCOOOOFCO(lI)OFCOOOOFCO(lI)O. 3FO 
266 FCoooOFC00008C00007COOOO. 330 
267 A80000540000A80000540000.1F8 
268 FC 1428FC0054A83C3C54A8FC . SAO 
269 8C3C3C7CFCOOOOOooOOooOOO. 2AC 
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BARBARIAN I 


10 . Potes BARBARIA/C 1 lcintl) 
20 ' Ptdro ". CuencI, 
30 FOR 1-2000 TO H03:READ A.:PDIE 
l. VALI....At) :NElT 
.0 OPENDUT'x':NENDRY A8FF:CLOSEOIIT: 
LOAD '! 
50 PDIE 120U, 201 
60 CALL 12000 
70 PDIE AA3.201 
80 "OOE 1 
90 LOCATE 3.10:PRINT 'úpem por e 
1 .iSlo que te .ate ! ';:VHILE .iS- 
u:.iS-UPPERSIIIIKEYS):VENO:PRINT .i 
S 
100 IF liS"S' THEN PDIE 2oo0,O:POK 
E 2001.0 
110 LOCATE 3.15: INPUT "Por que lnel 
igo elpiezls 10-7) ';en:IF eMO OR 
InJ7 THEN LOCATE I.IS:PRINT STRIII6S 
138,' 'J;CHRSm;:60TO 110 
120 IF .iS-'S' THEN POIE .7EUED:P 
OlE UES.AC7 
130 POKE A7E2, en 
1.0 CALL .10 
tu PRINT CHRtmCHRSI7J:CALL AlBIB 
1&5 LOAD' !BAR6RAF'.noo 
150 CALL 2000 
160 DATA IB.F.AF.21.2'.6F.6.S.77.23 
.IO,FC.3E,C9.32.21.6C.3E.0.32.2S,6F 
.21.00.09.1I.80.5C.01.38.01.EO.BO.1 
I.B.,SE.0I,BO.06.EO.BO.II.CC.6S.01. 
Al!. O,. EO .BO. C3. F2. 6A 
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BARBARIAN 11 


10 . Potes BARBARIA/C 11 Icintl) 
20 ' Pedro ", CuencI, 
30 'OR X-2OO0 TO AB03:REAO At:POIE 
I.VALI..'.At):NEIT 
lO OPENOUT'x.:ItEIIIIRY A8FF:CLOSEOUT: 
LDAO '! 
50 POIE 1201',201 
60 CALL .2000 
70 PQKE.AA3.201 
80 "OOE 1 
90 LOCATE 3,10:PRINT "Elpezlf por e 
I .iSlo que te .lte ! ';:VHILE .iS- 
": .iS.UPPERSUNIEYS): VEND: PRINT .i 
S 
100 IF .iS-'S' THEN POIE 2oo0.0:POK 
E 2001.0 
110 LOCATE 3.IS:INPUT "Por que lnel 
igo elpleos (0-7) '¡en:tF eMO OR 
InJ7 THEN LOCATE I.IS:PRINT STRIN6S 
138.' ')¡CHRSm;:60TO 110 
120 IF .iS-'S' THEN POKE .7E...EO:P 
OlE A7E5,AC7 
130 POKE A7E2.ln 
1.0 CALL .10 
tu PRINT CHRSmCHRSm:CALL AlBIB 
1&5 LOAD' !BAR6RAF' . 1900 
150 CALL 2000 
160 DATA IB.F .AF .21.EE.6F .6.5. 77 .23 
,10.FC.3E.C9,32.8C,68.3E.0.32,EF .6F 
.21.00,09.11.80. SC ,01, 38. 01. EO .BO.I 
I.B'.SE,01.BO,06.EO.BO,II,CC,6S.01. 
AD. O,. EO,BM3. F2. 6A 
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Game Over 
disco 


L os pasos a seguir, para la 
carga del programa con los 
nuevos gráficos, son los 
siguientes: 


, i 



JUEGOS 


l. Teclear el prograna 1 y 
salvarlo en disco con save GAME. 
2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 
3. Salvar en disco el código 
generado, utili7ando para ello la 
opción 3 del Cargador Uriversal y 
empleando el nonbre 
Gráficos.Din. 
4.. Ejecutar el programa 1 (run 
game), siguiendo sus 
ipstrucciones. 
5. Cuando el prograna avise 
con un beep, ipsertar la cinta en 
la que hayanos grabado el 
prograna Gráficos.Din, y pulsar 
una tecla. 
6. Cuando se conplete la 
carga, el juego dispondrá de los 
nuevos gráficos. 


Game Over 
cinta 


P ara cargar los nuevos gráficos, 
si se dispone del juego en 
cinta. hay que observar estos 
pasos: 
l. Teclear el programa 1 y 
salvarlo en cinta (save game). 


2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado 1, 
3. Salvar en cinta el codigo 
generado, utilizando para ello la 
opción 3 del Cargador Uriversal y 
enpleando el nonbre 
Gráficos.Din. 
4. Ejecutar el programa 1 (run 


PROGRAMA 1 (DISCO) 


gane) siguiendo sus i"'strucciones. 
5. Cuando el programa avise 
con un beep, i,sertar la chta en 
la que hayanos grabado el 
prograna Gráficos.Din, y pulsar 
una tecla. 
6. Cuando se conplete la 
carga, el juego dispondrá de los 
nuevos gráficos. 


10 REM Cargador de nuevos graficos para Game Over (disco) 
20 OPENOllT "DH:MEMORY 1309:CLOSEOllT 
30 CLS:PRINT "Inse.'ta disco,ol'iginal y pulsa una tecla"; :CALL &BB18 
40 LOAD "gol" 
50 PRINT CHR$(7);:CALL &BB18 
60 LOAO "graficos.bin",27430 
70 CALL 36500 


PROGRAMA l (CINTA) 


10 MEMORY 35000 
20 FOR X=&BOOO TO &BOIB:READ A$:POKE X,VAU"&"+A$):NEXT 
30 NODE l:PRINT:PRINT:PRINT "Inse."ta cint.a o'''lginal y pulsa \.ma tecla"; :CALL &BE 
18 
40 LOAD "le 
50 MODE O 
60 POKE &8D02,O:POKE &8D03,&BO 
70 CALL &8CAO 
80 END 
90 DATA 3e,7,cd,5a,bb,CO,14,BC,6,O,11,O,CO,CD,77,BC,21,3E,67,CD,83.BC,CD,7A,BC,C 
3,4A.l 
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DIRECCION DE COMIENZO, ,9C40 


1 18060000413C8200000096FO,2A3 
2 El0000000270610000000202,428 
3 C300004178FOEI0000D269FO,578 
4 EI00000278C3028241B4FOFO,717 
502824184EIEIEI0041B4FOFO,7Cl 
6 EI000096EIFOEI000096EIFO,690 
7 F0820096EIFOF0824178D2FO,7C6 
8 F082417802EIF0004178EIFO,758 
9 85820096EIFOB5820096F087,6E2 
107F820096F08768000041787F,481 
11 6B000041787F820000C3C33F,3EA 
12 C3004114F096A041411478El,52D 
1378A018060000C33C82000041,2F8 
14 84FOEI00
)D2D27061004178,583 
15 FOD2C30041FOFOFOEI0096FO,7FO 
16 EIFOE10096F002C3D28296FO,8A7 
17 02F0028202FOC3EIEI0078El,886 
18 3CFOEI00789678FOEI007896,672 
19 78FOF082789678FOFOEIE13C,83E 
20 FOFOFOD2E13C78EIFOFOF096,97E 
21 7AF085E178967AF0858278B4,7D8 
22 3FA5680078E18F2F680096El,578 
23 3F7F680096E1857F820000D2,528 
24 963F8200004178E182000041,384 
25 78FOEI0018060000413C8200,366 
26 000096FOE1000000D2706100,40A 


.. 



. 


27 OOOOD2D2C300004178FOE100,4Fl 
28 0096EIFOE1000096FOC3D282,6E5 
294178FOFOD2824178EIE1EI00,749 
30 4178FOFOEI000096EIFOE100,6C2 
310096EIFOF0820096EIFOF082,7B2 
32 4178AOFOF0824114AOF05000,5FO 
33 4114F050B5820014F050B582,557 
34 008278A07F82008278A06BOO,4AO 
35 004150A06800004114558200,2C8 
36 00C3C33FC3004178E196FOC3,66B 
37 413CFOE178F0180600000000,3D4 
38 000000000000000000000000,000 
39 000000000000000000000000,000 
40 00000000000000000000413C,07D 
41 8200000096FOEI000000D270,428 
42 6100000OD2D2C300004178FO,471 
43 El0000D269FOE10000D278C3,5FA 
44 D2824184FOFOD2824178D2El,7E9 
45 F0004178E1FOB52800D2EIFO,6FA 
46 85280096F0877F820096F087,5F
 
477A000041787F3EA00041787F,3C8 
48 D2AOOOC3C33F78004178E182,5CB 
49 7841413CFOE13CF018060041,492 
50 3C82000000D2F06900000092,37B 
51 80El000000C3ElE1000000D2,4E8 
52 FOB482000OD2F096E10041El,681 
53 C384El0041ElFOF0788200D2,726 
54 D2D2788200D2FOF0788200D2,71C 
55 FOD2690041FOFOD2690041FO,6B8 
56 FOD2690041FOFOE1848200FO,753 
57 D2E18482417AFOD2B482417A,757 
58 FOD2699041BF48F069000097
566 
594BF069000097BFB482000041,471 
60 BFB4820000C33FC3C3008250,54F 
61 69F0288250B4D2B426821B06.555 
62 00413CC3000000D2F0768200,3FC 
63 0092BOEIEI0000C3EIFOB482,6CE 
64 OOD2FOFOF08200D2FOD2F069,811 
65 41EIC3E1F06941EIFOE1F069,86B 
6600D2D2C3FOEI00D2F03CD2B4.7BC 
6700D2FOB469B441FOFOB469B4,785 
68 D2FOFOB469B4EIFOFOF03CD2,942 
69 FOFOD2B43CD2D27AFOB569FO,8BE 
70 417AFOB569B400975A3F76B4.5D9 
71 00971F7FD2B40097BF3FD269.58B 
72 OCI41BF7AD26900413F6
1
,47F 
73 0041 D2B4820000Q2FOBA.a200..5.4L 
74 180600413C82000000D2F069,348 
75 00000092BQEI00000OC3EIEI.4AS 
76 000000D2F084820(
o02F
2,6éc 
77 690041E1C3F0690041E1
OFO,6A9 
78 B46200D2D2D2B48200D2FOFO,794 
79 B48200D2FOD2690041FOFOD2,726 
80 690041FOFOD2690041FOF050,636 
81 848200AOF0502882417AAOFO,60B 
82 2882417AAOF0280041BF5OB4,521 
83 410000975(e441(
009750AO.3A4 
84 8200004)AA28820000C33FC3.3DC 
85 C300C3F(
9D2B482FOB4D2FO,84D 
86 3C821806000(
00000000000,ODC 
87 000000000000000000000000,000 
88 OOOOO(
OOOOOO(
OOOOOOOOO,OOO 
89 0(
0000000413C62000000D2,lDl 
90 F06900000092BOE1(
0000C3,43F 
91 E1EI000000D2FOB4820(
OD2.58C 
92 F096El0041E1C3B4E10041El,703 
93 FOF0788200FOD2EIB482147A,741 
94 FOD2B482147AFOD2EI0041BF,729 
95 48F0690000B54BF06900503D,48A 
96 BFB4820050EIBFB4820000B4,5CF 
97 3FC3C30082B441D2B482F03C,670 
98 D2F03C82180600413C825028,415 
990OD2F028FOB400D2F028FOB4,71C 
100 OOD2FOA050B400D2F(
05028,640 
101 0050FOAOF0280000FOEIFOAO.659 
102 0041F05OF0280050D2FOF028,5C3 
10300FOFOFOF0280OFOFOFOB400,76C 
104 OOFOFOFOB4005050FOF01400,618 
105 FOFOFOFOA(
OFOFOFOFOAOOO,8CO 
106 F07AFOF06900507
FOB46BOO,68C 
107 00973E3F2A0000973F3F6200,2D5 
108 003D3F3F824150B43F3E8241.3C2 
109 00413F506900004100502800,lF2 
11000820050F02818065028413C,2FD 
111 8200FOB450F06900FOB450FO,6B3 
112 69(
F02850F069(
502850FO,4E2 
113 EI0050B450FOA(
050B4D2FO,68B 
114 000050F028F0820050FOB4El,5AF 
115 280050FOFOFOB4(
00FOFOFO,6CC 
116 840000FOFOFOFOOOOOAOFOFO,6F4 
117 A028005(
OFOFOB4(
50FOFO,6CC 
118 FOB400D2FOFOB5FOO097FOFO.872 
119 B5A000153F3D6BOO00413F3F,310 
120 6B0082413F3F3E008241B53F,3Al 
121 F0280OD2A03F820(
0502800, 3C3 
122 82(
50B428C
4100(
000(
0,lEF 
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Army cinta 


P ara poder ver los nuevos 
gráficos del Army Move se 
deben realizar los siguientes pasos: 
l. Teclear el programa 1 y 
salvarIo en cinta mediante save 
army. 
2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado 1. 
3. Salvar en cinta el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre Ambu. 
4. Teclear con la opción 1 del 
Cargador Universal, el listado 11. 


ARMY MOVES 


DERDHAL €_ un n1ILmb,. J del (. O E , 
Cuerpo de Operoclon_ E
 iales 
Ha _Ido entrenad) durant . la _i 01 
para convertir e _n un _,..-_ ILi/ 
'! ahora <..S el pnmero df' Al prom r )... . 
Puede atrau<?<;ar las iinu.1" nemv'a'" 
por tIerra, mar o mre' d0r1ind 
toda
 ías 'tél rucas de la "'uerra 
en la ':)1 'va, conoce todcr; las drnj 

; eb un ¿xperto en eypl
 ivf.J C 
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Army disco 


L os pasos para cargar los 
nuevos gráficos, en la versión 
disco, son prácticamente iguales 
que en cinta. Basta con: 
l. Teclear el programa 1 y 
salvarIo en disco mediante save 
army. 
2. Teclear con la opción 1 del 
Cargador Universal (publicado en 
la revista), el listado 1. 
3. Salvar en disco el código 
generado, utilizando para ello la 
opción 3 del Cargador Universal y 
empleando el nombre Ambu. 
4. Teclear con la opción 1 del 
Cargador Universal el listado 1I. 
5. Salvar, en el mismo disco en 
que salvamos Ambu, el código 
generado, utilizando la opción 3 


5. Salvar en cinta a 
continuación del programa Ambu, 
el código generado, utilizando la 
opción 3 del Cargador Universal y 
empleando el nombre Super. 
6. Ejecutar el programa 1 (run 
army), siguiendo sus instrucciones. 
7, Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado los 
programas Ambu y Super y pulsar 
una tecla. 
8. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 
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del Cargador U niversal y 
empleando el nombre Super. 
6. Ejecutar el programa 1 (run 
army), siguiendo sus instrucciones. 
7. Cuando el programa avise 
con un 'beep, insertar el disco en 
el que hayamos grabado los 
programas Ambu y Super y pulsar 
una tecla. 
8. Cuando se complete la 
carga, el juego dispondrá de los 
nuevos gráficos. 
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JUEGOS 


LISTADO 1 
DIRECCIDN DE CDMIENZD. .4000 


1 180A000000040C840COCOCOC,OE6 
200oo000804840C5DAEOCOOoo.1B3 
3000B04840C5DAEOC00000400,1B7 
4 04840CFFFFOC056A04000484,3B9 
5 OCFFFFOC058A040004840CFF,43C 
6 FFOC040COC000484(
7FBFOC,305 
7 (
OCOCOCOC840C5DAEOC04(
,IF3 
8 840COC840CID2EOCC(
048CO,40B 
9 C(
40COCOCOC840C48(
4895,335 
10 3F3F3F3F840C480COC840COC,288 
11 (
OCOC46COOCOC840COCOCOC,IF6 
12 (
840C640C840COCOCOC0406,lEC 
1300480CB40C0004060C000040.13C 
14 OC840800005D84002A400C64.273 
15 0815005564153F04C084083F,2D9 
16 2AOC403F952EOCOC1D6A3F08,25E 
17 402E846ACOC095461D80006A,4CO 
18 402A000015809500002E842A,270 
19 000015481 D00003F952AOOOO, 176 
20 156A3FOOOOI53F000000003F.151 
21 2A00180AOOOOOOOOOOOOOOOO,04C 
22 0000000000040C840COCOCOC,OC4 
230000000804840C5DAEOCOOOO,IB3 
24 00(
04840C5DAEOCoo000400,lB7 
25 04840CFFFFOC450A04000464,379 
26 OCFFFF(
450A040004840CFF,3FC 
27 FFOC040COC0004840C7FBFOC,305 
260COCOCOCOC840C5DAEOC040C,lF3 
29 840COC840CID2EOCCOC048CO,40B 
30 C0840COCOCOC840C480C4895,335 
31 3F3F3F3F840C480COC840COC,288 
32 (
OCOC48COOCOC840COCOC(
,lF8 
33 OC640C840C840COCOCOC04(
,IEC 
34 00460C840C0004060C002A40,166 
35 (
840815005D84153F40OC84,2B2 
36 083F2A55643Fl02EC0641D2E.363 
37 3FOC406AC02EOCOCI0C09S08,315 
38 402E046ACOC095081D80006A,400 
39 C02A000015C09S00003FID2Ir,2DA 
40 (
00152E3FOOOOlS3FOOOOOO.OD6 
41 (
3F2AOOOOOOOOOooOOOOOOO,069 


LISTADO 11 


OIRECCION DE COMIENZO, .4000 


i 
I 
I 
i 


. 
1 180A0000OOOOooOOOOOOOOOO

22 
2 0 ססoo 00000OO600000000000;000 
3 000000000000000000000000,000 
4 0000000 0ססoo 0000 ססoo 0000.000 
5 000000000000000000000000,000 
6 00000000050A00000015FFOO, 123 
7 00000FOOOOOO5SFFAAAAOOOO,2B7 
8 2700551DFF7F5500000033FF.39E 
9 AEOC7FAA002A00003355FFFF,493 
10 FF55AA150000050AC33FC397.47E 
11 BF2A27OFOA4FCFFFOFSF7FBF,4F2 
12 llC3C30F4FDFOOOOOOFFOOOO,3D3 
13 0005228AOOOOOOSSOOOOOOOO, 106 
14 670000000000000000000000.067 
15 000000000000000000000000,000 
16 0000000000000 ססoo 0000000.000 
17 000000000000000000000000.000 
18 000000000000000000000000,000 
19 000000000000000000000000.000 
20 0000000000 סoסoooooooססoo ,000 
21 00001BOAOOOOOOOOOOOOOOOO,022 
22 00000000000000 ססoo 000000.000 
23 OOOOOOOOOOOOOOúOOooooooo, 000 
24 00000 ססoo 00000000000 ססoo .000 
25 000000000000000000000000,000 
26 000000000000000000000000,000 
27 000000000SOOOOOOOO15FFoo.119 
28 OOOooFOA005SFFFFAAOOOOOO.316 
29 27005510FFBF550ooo0033FF,3DE 
30 AEOC7FFFAA2A00003355AEFF.541 
31 FF7FFF150000050AC33FEB97,525 
32 BF2A27OFOA
FCFBFOF5F7FBF.
B2 
33 l1C3C30F4FOFOooOOOFFOOOO.303 
34 0005OO8A00000055OO000000.0E4 
35226AOOOOOOOOOOoooo006700.113 


PROGRAMA 1 (CINTA) 
10 I'tEHORY 9999 
30 FDR X-37330 TD 37366:READ A*:PDKE X,VAL("&"+A.':NEXT 
40 
E l:PRINT:PRINT:PRINT "Inserta cinta original y pul.a una tecla"I:CALL &1 
18 
SO 
E O:INK O,O:BDRDER O:LOCATE 6,12:PRINT "ARMY MOVES" 
60 LDAO "!c ' 
70 PDKE &9OEA.&D2:POKE'&9OE8.&91 
80 CALL 37000 
90 END 
100 DATA 3e,7,cd,6a,bb,6,o,ll,O,cO.CD.77,8C.21,DC,
6,CD,83,BC,CD,7A,BC,6,O,ll,( 
cO,CD,77.BC.21,4C.3F,CD,83,BC,CD.7A.BC.c3,36,l 


36 00000 0ס0ooooo 00000000000,000 
37 000000000000000000000000,000 
38 000000000000000000000000.000 
39 000000000000000000000000.000 
40 000000000000900000000000.000 
41 000000001BOAbooooOOOOooo.022 
42 000000000000000000000000,000 
43 000000000000000000000000,000 
44 000000000000000000000000,000 
45 000000000000000000000000,000 
46 OOOOOOC'OOOOooOOOOOOOOOOO,OOO 
47 000000000000000000000000.000 
48 SSoo00000500000000FFAAoo.203 
49 00000FOOOOFFFFFFAAOOOOOO,3B6 
SO 270AFF10FFBFFFooooo033FF,S3C 
51 AEOC7FFFBF2AOOOO3355AEFF,556 
52 FF7F2A1527OFOSOAC33FC3BF,486 
53 BF2Al1C3824FCFBFOFSF7FBF,SC8 
54 0000000F4FOFOOOOOOFFooOO,23C 
SS 0005008Aoo00005S00000000.0E4 
56228AOOOooOOO000000006700,113 
57 000000000000000000000000,000 
58 000000000000000000000000,000 
59 000000000000000000000000,000 
60 000000000000000000000000.000 
61 000000000000lBOAOOOOOOOO,022 
62 000000000000000000000000.000 
63 0000000 ססoo 0 ססoo 00000000,000 
64 000000000 ססoo 00000000000.000 
65 000000000000000000000000.000 
66 0000000000 ססoo 0000000000.000 
670000BF5500000000oo000000.114 
68 FFAA2AOOOOOOOOOOOOOOFFFF,3Dl 
69 1500000000oo00557FFFOOOO,lE8 
70 000000ooQOAEBFAABFOOOOOO,206 
71 0000555D7FEBFFOOOOOOOOOA,325 
72 04SOC3OFOOAAoooOOFOOFF68,356 
73 OFOOOOOOOOO51B5FAA2FOooo.167 
74 0000000033
59FAAOOOOOooo,lCl 
75OOO0338A4SOOOOQOOOOOOOOO.102 
76 11000ABAOoooOOOOOOOOOF05,OB9 
77008AOOOOOOooOOOF870Fl16A,1CA 
76 0000000005C3000Alloo0000,OE3 
79 000033000 ססooססoo 0000000,033 
80 220000000000000000000000,022 
81 0000000000OOOOOOIBOAOOOO.022 
82 00000000000 ססoo 000000000.000 
63 000000000000000000000000,000 
84 000000000000000000000000,000 
85 000000000000000000000000,000 
66 000000000000550000000000,055 
87 00000000FFAAAAOOOOOOOOOO,253 
B8005555BFlS00000000000055,lD3 
69 FFFFooOOOOOOOOOOOOAEBFAA,415 
90 BFOOOOOOooOOOOSOFFC3FFOO,3DD 
91 00000000045DEBOFOOAAOOOO.205 
92 OFOOFF6BOF00000000051BSF,207 
93 AA2FOoo00000000033459FAA,29A 
94 000000000000338A45000000, 102 
95 0000000011000ABAOOooOOOO,OA5 
96 00000F05008A000000000005,OA3 
97870F118A00000000004BOOOA,186 
98 110000000000058200000000,098 
99 000000006300000(
0000000,063 
100 000022000000000000000000,022 
101 00000000000000000000180A,022 
102 OOOOOOOOOOOOOOOOOOOOO(
O.OOO 
103 000000000000000000000000,000 
104 000000000000000000000000,000 
105 000000000000000000005555.0AA 
10600000000000000ooFFAA2AOO,lD3 
10700000000oo00BFFF15000000.1D3 
108 000000SSFFFFOOOOOOOOOOOO,253 
109 ooAEBFAABFOOOOOOOOOoo05D,333 
110 FFC3FFOOOooOOoo0045DC30F,3F4 
111 ooAAOOOOOFOAFF6BOFOO(
00.23C 
11200051B5SAA2FOOOoooOOOOOO.14E 
113 33459FAAOOoo00000000338A,27E 
114 45OO00000000000011000A8A.OEA 
115 0000000000000F05008AOOOO.09E 
116 0000000F870F118AOOOOOOOO, 140 
117 05C3000AII00000000003300, 116 
118 0000000000000000220QOOOO,022 
119 000000000000000000000000,000 
120 000000000000000000(
0000.000 
121 000000000000000000000000,000 


PROGRAMA 1 (DISCO) 


10 DPENDtJT "D":MEMDRY 1309:CLDSEQUT 
20 LDAO "..,.ml" 
30 CALL &BB18:PRINT CHR*(7)1 
40 LDAO .super.bin",16204+1000 
SO LDAD '"ambu.bin", 18140+1000 
60 CALL 37520 


Sprits 


L O'i e Ir '.' O'i son, pe l' ejenplo, 
el lib o por u, poli "I, un 
paraguas para ?l1ortiglar la fa' a 
de Wi'lie, cte. 
Pa a poder c? gar estm nuevos 
gráfico,; 1, Y que lItil'L l' el 
Cargac'or Uri\ eral y copiar el 
li t ldo 1 nediarte la opeié, l. Al 
tenrinar se de he sahar sal ar a 
cint 1 co 1 la opción «Salvar 
J" .a'o» eon el rontre Spigraf. 
A conf.uación cep'ar los 
cagadores de cinta o disco. 
Ejeclltar estos cagadores con la 
cinta o d' ea que cont ,ga el 
fic '1ero Spigra f , coloe. l' 11 cinta o 
di "(O 01 igi lal del j llego y puls r 
\lila tee'l. Al te ..i.ar la ea ga ya 
pod emes jugar con los nuevos 
gráfic.
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CARGADOR DE CINTA 


5 RE
 *** Cargador de cinta spirit* 
** 
10 OPENOUT"a":
E
ORY ¡BFf:CLOSEOUT 
20 
ODE O:BORDER 
:FDR i=O TO 15:RE 
AD a:INK i.a:NEXT 
30 FOR i=42500 TO 42560:READ aS:POK 
E i.VAL("¡"+aS):NEXT 
35 LOAD"!spigraf".¡COO:PRINT CHRS(7 
)CHRS(7):CALL ¡BBIB 
40 LOAO"!tpload":CAlL 42500 
50 DATA 0.2.9.10.3.3.16.13.15.1.18. 
20,6.13.24.26 
60 DATA 3e,[9.32.5d.12.[d.48.12.at. 
32,3d.8a.32,e2.8b.21.0.[.II.d9.5a.O 
1.84.01.ed.bO.ll.91.5e.1J
e.l.ed.bO 
.11.bl.68.1. U.l,ed.bO,l1,89,6a.l,[ 
2,O.ed.bO.ll.7d.18.1,[2.0.ed,bO.[3. 
8e,7b 


t 


CARGADOR DE DISCO 


lo 


1 RE" CAR6ADOR DISCO SPIRIT 
10 "00£ O:BORDER O:INK O,O:INK 1,2: 
INK 2.9:INK 3,10:INK 4,3:INK 5,3:IN 
K 6,16:INK 7.13:INK 8,15:INK 9,I:IN 
K 10,18:INK 11,20:INK 12.6:INK 13.1 
3:INK 14,24:INK 15,26 
20 FOR i=42500 TO 42545:READ aS:POK 
E i,VAl("¡"+aS):NEXT 
30 OPENOUT"x":"E"ORY ¡BFF:CLOSEOUT 
40 LOAO"spigrat".¡COO:PRINT CHRS(7) 
CHRS(7):CALL ¡BBI8 
50 LOAO"s[r",¡COOO 
60 LOAD"will ie 
70 POKE ¡8A3D.0:POKE ¡SBE2.0:CAll 4 
2500 
80 DATA 21.0.[,11.d9.5a,OI.84,OI,ed 
.bO,I1, 91 ,5e,1, 7e,l.ed,bO,I1,bl,68, 
1.14.1.ed,bO.ll.89.6a.l,[2.0.ed,bO, 
1I,7d,78,I,[2.0.ed.bO.[3,Se,7b 


. 


LISTADO 1 


1 2003OO0FFEFFOOEoo73F2SFF.479 
2 COF61S7F4AFF30FC20FF89FF.768 
308FE41FF08FF84FE42FF10FF.71F 
484FF82FF1OFF42FF84FF10FF,7E6 
5 42FF82FF4FFF3AFFC9FF80FF,8FO 
6 C6FF07FFC6FFOOEF
F1Fa7FF,733 
7 8OCOOF1F27FFaOC0061F67FF,SSF 
8 OOCOooOF86FF80E0061FESFF,SBD 
9 COFOOD1FESFFEOFOOD1FE5FF,7AO 
10 EOFoollFE6FFEOF0020FE1FF,796 
11 EOF006OF2FFFCOF8071F5FFF.64F 
12 BOF8OF1FCFFF70FCOF3F26FF,683 
13 FaFC1F3F01FFF8FE1F3F8FFF.734 
14 FCFE1F3FFFFFFCFEOF3FFFFF.69C 
lS COFEOF1FF8FFooE0071F83FF,668 
16 80COOOOF73FF80C00001F7FF.5F8 
17 OOC02003000FFEFFOOE0073F,415 
1825FFCOF8187F4AFF30FC2OFF.707 
1989FF08FE41FFOBFF84FE42FF,798 
20 lOFFB4FF82FF1OFF42FF84FF,7E6 
21 10FF42FFB8FFCFFF3AFFC7FF.8D4 
22 30FFC6FFOFFF87FFooEFOF1F,6AS 
23 27FF80C0061F67FFOOCOOOOF.4CO 
24 A7FFOOC0061FE6FF80FooE3F.62D 
25 ESFFEOF8103FESFFFOF8003F.830 
26 ESFFFOFeOllFE6FF70F8020F.74A 
27 EOFFFOF8060F2FFFEOF8071F,708 
28 SFFFOOF8OF1FC7FFBOFCOF3F,714 
29 2OFF78FC1F3F07FFFeFEOF3F.638 
30 8FFFFCFE031FFFFFFCFE041F.7CS 
31 FFFFFCFEOF3F07FFFCFE1E3F,7A3 
32 78FF78FE1C3FFOFCOOFC003F,66F 
33 EOF8000020030000003E040E,248 
34oo001C7F040E00003E7F041E.16C 
35 0000227FOC1FoooolCFFOE9F,294 
36 ooo17FFFOEDF0003FFFF8FFF.5F8 
3701OFFFFFC7FFOS1FFFFFD6FF,7CB 
38 OD1FFFFFDSFFOE1FFFFFBBFF, 7E6 
39 OE3FFFFF88FF1F3F7FFF7BFF,7SB 
40 lF7FBEFFFFFF3DFFDOFFBFFF.92F 
41 7DFFDDFFBFFFFDFFEBFFBEFF. AB9 
42 FDFFEBFFBEFFFBFFF7FFOCFF.B6E 
43 7OFFFFFF80FE2OFBOOF.FOOEO,7ES 
44 017300FF40E00103FFFFCOEO.63S 
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4S 0103FFFFCOEool03FFFFCOFO,754 
460103FFFFEOFoo107FFFFEOFB,7BO 
470307FFFFFOFB0307FFFFFOF8,7E0 
48 0307FFFFFOFe0307FFFFFOF6.7EO 
49 0107FFFFEOFelF0300000000,400 
SO OOQOeOOOOOOOOOOooOooOOOO, 000 
51 00000000000 ססoo 000000000,000 
52 00 ס0oooooססoo o00ooo00000,000 
53 000000000000000000000000,000 
S4 OOOOOOOOOOOOOOOOOOooOO7E,07E 
SS oooooo003CFFOOOOO0007EFF.2B8 
S6 oooOOoo07EFFooOOO0007EFF,2FA 
S7 000000FD7EFF008F78FF8DFF,66C 
58 lEFF99FFBDFF99FF3DFFC3FF.907 
59 BCFFF2FFFFFF4FFFEFFFFFFF.AE4 
60 F7FFS8FFFFFF1AFFl3FF7EFF.BF3 
61 C8FF377FBDFFECFE377F81FF,8S9 
62 ECFE377F81FFECFE37FF81FF,8CO 
63 ECFF63FFC3FFC6FF63FFC3FF,9F8 
64 C6FF71FFC3FF8EFF1DFFBDFF,9SC 
65 B8FF16030oo0000000000000,lDO 
66 000100E000000003COEOOOOO.284 
67 010340FEoo0001074CFE00030297 
68 03FFD4FE01OFF3FF94FE061F.68D 
69 BCFFBBFEOD1F7FFF38FCOB3F,699 
70 FFFF70FC153FF8FFFOF81B7F,837 
71 C3FFEOFC377F95FFE8FC2F7F.87A 
722BFFE8FC377FSFFFD8FE2F7F,7A6 
73 6FFFFCFE177FSFFFFCFE1F3F,7B4 
747FFFFCFEOF3F9FFFFCFE031F,780 
75 FFFFFOFEoo0700FFooF80000,SEA 
76 OOOOOOOOOF031F3FFFFFFCFE,468 
77 103FOOFF04FE133FFEFF74FE,611 
78 163F7FFF14FE143FF9FF74FEo6A2 
79 143FFDFF14FE143FFFFF74FEo724 
80 153FFFFF14FE173FFFFF74FE.72A 
81 173FFFFF04FE173FFFFF34FE,6DC 
82 133FFEFF34FE103FOOFF04FE.5Dl 
83 lF3FFFFFFCFE033F80FFEOFE,7F5 
84 180154FE54FE54FE54FE54FE.6B3 
85 S4FE7CFE5CFE3BFE387Cl07C o 69C 
86 1038103810381038107C167C,240 
87 387C187C287C187C267Cl07C.3BO 
86 003818040<.00010300800000,OD8 
690000010FooEOOOoooooo061F,l15 
90 COFOOOO(
OOOOA1FAOFOOOOO,369 
91 OOOOOC7F6OFCOOOOoo0030FE,315 
92 18FE0000003E50F6143E007C,36A 
93 lCFF60FFOCFF38FF7FFFFFFF,838 
94 FFFFFEFFCOFFOOFFOOFF03FF o 8BA 
9580FFOOFFOOFF01FFD2FF24FF.771 
96 D2FFCSFFADFFSBFF2DFF2BFF,8Fl 
97 A8FF8AFF6SFF11FFAAFFBAFF,906 
98 ESFFSSFFAAFFBAFF29FF55FF o 916 
99 88FFBAFFE9FF51FFAAFF8AFFo9AA 
10069FF15FFAAFFDBFF2DFF35FF o 65F 
101 DSFF24FF02FFCBFFaOFFOOFF,910 
102 ooFF01FFCOFFOOFFOOFF03FF,6BE 
103 7FFFFFFFFFFFFEFFooFFOOFF o 97S 
104 OQFFOOFF200300FFOOFFOOFF o 51E 
105 FFFFFFFFFFFFFFFF79FFFFFF,B6E 
106 FEFFB6FFFFFFFEFFA9FF7FFF,AD3 
107 FEFF89FF7FFFFEFFE6FFFFFFoAE3 
108 ESFF01FF17FFDAFF6AFFEBFF,926 
109 A2FFBEFFSSFFDAFFEEFF5SFF.99C 
110 CAFF8AFFS5FFB2FF6AFF4BFF,
OA 
111 CDFF9SFFB7FFFFFFFFFFFFFF.Bl0 
112 OOFF34FFOOFF0E1F34FF70Fe,SF9 
113 OF1FBSFFFOFe071FBSFFEOF8,77C 
114 OOFFOOFFooFF7FFFFFFFFEFF.676 
11S 00FF1FFFFEFFOOFFOOFFFOFF.807 
116 357F7FFFFCFE207FFFFFF4FE.8BB 
117 217F7FFFECFE227FFFFFF4FE.899 
118 107F7FFFE8FE0C3FAFFFFOFC,7D8 
119 021FSFFFCOF8000700FFOOEO,S10 
120 0307FFFFCOEooOOOOooOOOOO,3A8 
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Cray 5 


A lgunm de los gráfico
 que se 
han cambiado son: las llaves 
por calcetines, camisetas, etc. 
Para poder cargar estos nuevos 
gráficos hay que utililar el 
Cargador Universal y copiar el 
listado 1 mediante la opción l. Al 
terminar se debe salvar en cima 
con la opción «Salvar Binario» 
con el nombre Cra)'graf. 
A continuación copiar 1m 
cargadores de cinta o disco, 
Ejecutar estos cargadores con la 
cinta o disL'O original del juego. 
Al acabar la carga se oirá un 
beep, colocar la cinta o disco que 
contenía el fichero Craygraf, 
salvado anteriormente, y pulsar 
una tecla. Cuando se hayan 
cargado los nuevos gráficos 
comenzará el juego, 
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CARGADOR DISCO 


lO RE
 CARGADOR DISCO CRAY S 
20 MODE O:FOR i=O TO 15:READ b:INK 
i,b:NEXT:BORDER O 
30 
EMORY 10000:LOAD"(rayO":DN ERRO 
R GOTO 40:LOAD"(rayl" 
40 MEMORY 891:LOAD"(rayl":MODE 2:IN 
K 1,0:LOAD"(ray2":PDKE &86IA,201:PO 
KE &89C3,O:FOR i=&9FDO TO &AOOA:REA 
D a$:POKE i,VAL("&"ta$):NEXT 
50 DATA 0,26,20,1.,6,3,2.,8,15,.,18 
,9,14,1,13,0 
60 PRINT CHR$(7)CHR$(7):CALL &BBI8: 
LOAD"[raygraf",&EOOO:CALL &9FDO 
70 DATA 21,O,eO,11,3e,46,I,BO,1,ed. 
bO,II,3e,64,I,(O,OO,ed,bO,II,7e,69, 
1,BO,I,ed,bO,II,be,6b,1,[O,O,ed,bO, 
11,3e,73,I,[O,OO,ed,bO,2I,be,44,11, 
bf,..,1,7f,1,36,O,ed,bO,(3,29,7f 
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CARGADOR DE CINTA 
5 RE" ** cargador cinta cray 5** 
10 MDOE l:BDROER O:FDR i=O TD 15:RE 
AO a:INK i.a:NEXT 
20 FDR i=&9FCO TD AA022:REAO a$:PDK 
E i.VAl('&'ta$):NEXT 
30 INPUT 'Vidas infinitas: '.v$:IF 
UPPER$(lEFT$(v$,l»=.N' THEN PDKE 
'0901,205 
.0 INPUT 'Tielpo infinito: .,v$:IF 
UPPER$(lEFT$(v$,l»='N' THEN POKE 
'0906,1 
SO "DDE O:lDAD.!Ioader, ,,':PDKE &Al 
Cl.&CD:PDKE &AIC2.&CO:PDKE &AIC3,&9 
F:CAll &A028 
60 DATA 0.26.20,1'.6,3.2'.8.15,',18 
,9,U.l,13,0 
70 DATA 3e,c9,32.1a.86,3e,O,32,c3,8 
9.3e.7,cd,5a.bb,cd.18,bb.3e.ff.cd.6 
b,bc,6.0,11,0.eO.cd,77,bc.21,O,eO.c 
d,83.bc.cd.7a.bc 
75 DATA 21.0,eO,lf.3e,'6,l,80,Ol.ed 
,bO.ll,3e.6'.1.cO.0.ed.bO,ll.7e,69, 
1,80,1.ed.bO,ll,be,6b.l,cO.0.ed.bO. 
l1,3e,73 
80 DATA 1,cO.OO,ed.bO,21,be.",11.b 
f.",1.7f.l,af,77,ed.bO,c3,29,7f 


LISTADO 1 


1 003064CCCCCCCCCCOOD8FOFO,748 
2 F0A40C4COODSFOFOFOFOF04C,7CO 
3 00D8FOFOFOFOF04COOD8FOFO,88C 
4 FOFOF04COOD8FOFOFOFOB44C,BB4 
5 00D8FOFOFOFOB4E400D8FOFO,8EB 
6 FOFOB4E400D8FOFOFOFOB4E4,9A8 
7 00D8FOFOFOFOB4E400D8FOFO,8E8 
8 FOFOB4E400D8FOFOFOFOB4E4,3A8 
9 00D8FOFOFOFOFOE400D8FOFO,924 
10 FOFOFOE400D8FOFOFOFOF04C,988 
11 OOD8FOFOFOA40C4C003064CC,604 
12 CCCCCCCCOOOOOOOOOOOOOOOO,330 
13 003064CCCCCCCCCCOOD8FOFO,748 
14 FOFOFOE400D6FOFOFOFOFOE4,A20 
15 00D8FOFOFOFOFOE400D8FOFO,924 
16 FOFOFOE400D8FOFOFOFOB4E4,9E4 
17 00D8FOFOFOFOB4E400D8FOF.0,8E8 
18 FOFOB4E400D8FOFOFOFOB4E4,9A8 
19 0OO8FOFOFOFOB4E400D8FOFO,8E8 
20 FOFOB4E400D8FOFOFOFOB4E4,9A6 
21 QOD8FOFOFOFOB4E400D8FOFO,8E8 
22 FOFOFOE400D8FOFOFOFOFOE4,A20 
23 00D8FOFOFOFOF0E400D8FOFO,924 
24 FOFOFOE400D8FOFOFOFOFOE4,A20 
25 00D8FOFOFOFOFOE400D8FOFO,924 
26 FOFOFOE400D8FOFOFOFOF04C,988 
27 OOD8FOFOFOFOF04COOD8FOFO,88C 
28 FOFOF04COOD8FOFOFOFOF04C,8FO 
29 00D8FOFOFOFOF04COOD8FOFO,88C 
30 FOA40C4C003064CCCCCCCCCC,67C 
31 0000000000000000003C3C3C,OB4 
32.3C3C3C3C003C3C3C3C3C3C3C,294 
33 OOOOOOOOOOS400A800000000,OFC 
34 0041FC2800000000005496A8,2F7 
35 000000000041 FC2800000000 , 165 
36 00S496A8000000000041FC28,2F7 
37 00000OO00041C38
OOOOOOOO,186 
38 0041C382000000000041C382,30C 
39 000000000041C38200000000, 186 
40 0041C382000000000041C3B2,30C 
41 000000OOOO41C38200000000,lB6 
42 0041C382000000000041C382,30C 
43 OOOOOOOOOOC3C38200000000,208 
44 00C3C38200000000C3C3C382,4D3 
450054E9C3C3C3D6A600FCE9C3,7AC 
46 C3C3FCA600FCE9C3C3D6FCA8,90F 
4700FCE9C3C396FCOOOOFCE9C3,7A5 
48 C37CFCOOOOS4E9C3C3FCA800,6A2 
49000000FCOOOOOOOOO0000054,150 
50 A600000000000000FCOOOOOO,lA4 
SI 0000000054A8000000000000,OFC 
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S200FC0000000000000054A800,lF8 
53 OOOOOOOOOOOOFCOOOOOOOÓOO,OFC 
54000054A800000000000000A8,lA4 
SC 0000FCFCFCFCFCF30050FOFO,80F 
56 FOFOFOF00050A40COCOCOCOC,4FO 
57 00500COCOCOCOCOCOOOOFOOC, 194 
58 OCFOA40COOOOA40CS8FOOCOC,3BC 
59 0000SOOCA40COC08000000FO,210 
600COCOC0800000000A40C4C88,lBO 
61 00000000500C4COOOOOOOOOO,OA8 
6250A44C0000000000500C4COO,lE8 
630000000050A4CCOOOOOOOOOO,lCO 
64 OCOCOC88000000040COCOC08,ODC 
65 000000000000000000000000,000 
66 000000000000000000000000,000 
67 000000000000000000000000,000 
66 000000000000000000000000,000 
69 000000000000000000000000,000 
70 0000000000OOFCFCFCFCFCA8,594 
71 0000FCFCFCFCFCF300S0FOFO,80F 
72 FOFOFOFOOO50A40COCOCOCOC,4FO 
73 00500COCOCOCOCOCOOOOFOOC, 194 
74 OCFOA40COOO0A40CS8FOOCOC,3BC 
75 0000SOOCA40COC08000000FO,210 
76 OCOCOC0800000000AaOC4ose lSO 
77 000000OO500c4C00(l00I)OOOO, OAS 
78 SOA44COOOOOOOOOOSOOC4COO,lE6 
790000000050A4CCÓOOOOOOOOO,lCO 
80 OCOC0C88000000040COCOC08,OOC 
81 OOOODEOOOOEDOOOOOOS4CFAS,396 
82 S4CFABOOOOS4CFOEEOC7A800,62B 
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83 0045C3CFCBC3DEOOOOEDC3C3,6B6 
84 C3C3DEOOS4CBC3C3C3C3C7AB,7FE 
85 S4CBC3C3C3C3C7A845C3C3C3,628 
86 C369C38A45C3C3C3B63CC38A,716 
8745t3C3C3963CC3A84SC3C3C3,7S9 
88 C369C3A845C3C3C3C3C3C3A8,616 
89 45C3C3C3C3C3C3A845E1D2D2,849 
90 E1C3E1A84SFOD2D2D2D2D2A8.924 
91 4SFOD2D2FOO2FOA84SE1FOD2,91B 
92 D2D2D2AB4SE1FOD2E1D2D2A8,933 
93 4SC3C3C3C3C3C3A84SC3C3C3,80D 
94 C3C3C3A845C39GC369C3C3A8,7E9 
95 4SC33C966969C3A64SC3C3C3,6A5 
96 C3C3C3AS45C3C3C3C3C3CSA8,670 
97 3C3C3C3COOOO3C3CB43COOOO,256 
98 3C3C003C2CA43C3C00003CAC,284 
99 9C3CA4S83C3CS86C8C8C3cac,4AO 
100 58583CCC444C4C4C3C3CCC88,4AC 
101 444G4C4C4C4CCC88444C4C4C,43C 
102 4C4C8C88444C4C4C4C4CCC68,4CO 
103 444C4C4C4C4CBC8844E44C4C,494 
104 4C4CCC8844E44C4C4C4C8C86,558 
lOS 44E44C4C4C4C8C8844E44C4C,52C 
106 4C4C8C8844E4E44C4C4C8C88,5BO 
107 D8D88CCCCC4CCC88DBD88CCC,87C 
108 CC4C4CCCD8D88C88CC4C4CCC,724 
109D8D88C88CC4C4CCCD8D8CC88,7F8 
110 CC4C4C4CD88CCC88CC4C4CCC,698 
111 D88CCC00444C4CCCD88CCCOO,608 
112 44CC4C4CFOB43C0044D8B43C,594 
113 OOOOOOQOOOOOOOOOOOOOOOOO.OOO 
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JUEGOS 


K.Y.A. 
Vence, destruye 
los muros 


Casa creadora: LORICIELS 
Proein, S. A. Tel. 276 22 08 
Cinta: 995 ptas. Disco: 2.395 ptas. 


E l objetivo de este juego consiste en vencer en 
sucesivos enfrentamientos al ordenador o a 
adversarios humanos. Para vencer en cada 
enfrentamiento es necesario acertar con el disparo 
de nuestra nave a la enemiga cinco veces. El 
decorado es diferente en cada pantalla, aunque 
en todas está constituido por muros de distintas 
características. Así, hay ladrillos que se pueden 
destruir con balas, otros en los que las balas 
rebotan (y si no tenemos cuidado podemos 
destruirnos a nosotros mismos), otros que quitan 
munición y otros que la reponen. Lo más 
destacable de este juego es la posibilidad d 
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redefinir todas las características. Así, podemos 
cambiar desde el color de la pantalla al tipo de 
adversario que queremos e, incluso, podemos 
construir las pantallas a nuestro gusto y después 
salvarlas en cinta. Poco más que comentar de 
este juego, apropiado sobre todo para que los 
más pequeños de la casa celebren sus 
competiciones particulares. El movimiento es lo 
mejor conseguido, pues es suave y rápido, 
mientras que los gráficos son muy simples: 
únicamente hay diversos tipos de ladrillos y 
varios tipos de nave. El juego carece de música, 
y los efectos de disparo y explosión no son muy 
sofisticados. 


Originalidad 
Gráficos 
Movimiento 



1]3[Y)[Y)[y) 

1]3[y)DD 

!y}

D 

!y}
DD 

!y}

D 
GC)GZJ
DD 
VVUn rollo VVVPasable 


Sonido 
Dificultad 
Adicción 


VHorrible 


v V V VBueno 


V V V V V Muy bueno 


METROCROSS 
Carrera 
de obstáculos 


Casa creadora: U.S. GOLD 
Erbe Tel. 314 1804 
Cinta: 875 ptas. Disco: No hay versión 


N os encontramos ante un juego en el que 
nuestra misión no es preservar la seguridad 
de nuestra galaxia, ni luchar contra intenninables 
hordas del mal, ni tampoco debemos rescatar 
ninguna princesa de garras de pérfidos 
personajes. En Metrocross únicamente tenemos 
que procurar completar el mayor número de fases 
en el menor tiempo posible. Esto lo podemos 
hacer saltando, corriendo o patinando. Hay 
ciertos obstáculos que dificultan nuestra misión, 
como latas de Coca-Cola (!), vallas, tramoS de 
pista ralentizantes, losas repletas de ácido, etc. 
Pero también contamos con la ayuda de 
trampolines, que nos permiten -avanzar muy 
rápidamente y sorteando gran número de 
obstáculos, monopatines, que no se frenan en los 
tramos ralentizantes, dado que aumentan nuestra 
velocidad o detienen momentáneamente el 
tiempo, etc. Metrocross, como veis, es un juego 
con un tema bastante original. El movimiento 
está bien realizado, con mucho realismo, sobre 
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todo en las caídas o saltos de nuestro personaje. 
Gráficamente, sin embargo, resulta un poco 
tosco, aunque hay que tener en cuenta que está 
elaborado en modo O, el de menor resolución. El 
juego es simple pero entretenido, pues a medida 
que vamos completando fases, descubrimos 
nuevos objetos que nos obstaculizan o ayudan, lo 
que nos incita a seguir jugando. 
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Originalidad 
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SLAP-FIGHT 
De nuevo 
en combate 


Casa creadora: IMAGINE 
Erbe Te!. 314 1804 
Cinta: 875 ptas. Disco: No hay versión 


D e unos meses a esta parte, se viene 
observando en el mercado de software una 
tendencia bastante generalizada a la producción 
de juegos en los que lo primordial sea la acción, 
por encima de cualquier otra característica. SIap- 
Fight, adaptado de las máquinas recreativas, es 
un nuevo juego de estas características. Debemos 
conducir nuestra nave a través de un territorio 
hostil, procurando adentrarnos lo más posible y 
eliminando el mayor número de enemigos. 
Introduce una novedad importante: la posibilidad 
de cambiar de armamento a medida que se 
desarrolla la partida. Cuando matamos a algunos 
de nuestros enemigos, aparece bajo ellos una 
estrella, que debemos recoger si queremos 
aumentar las prestaciones de nuestra nave. Al 
recogerla podemos observar cómo una pequeña 
flecha apunta, sucesivamente, a cada una de las 
opciones con que contamos. Éstas son: 
Speed. Pulsando la barra espaciadora veremos 
cómo nuestra nave se mueve más deprisa. 
Shot. Nos permite volver a seleccionar los 
disparos de ametralladora. 
Side. Si la elegimos, nuestra nave disparará 
también hacia los lados. 
Wing. Si tenemos láser, veremos cómo éste se 
duplica en dos rayos. Si seleccionamos esta 
opción por segunda vez, se añadirán a nuestra 
nave dos pequeños módulos laterales, que 
también disparan, por lo que amplían el campo 
de barrido de nuestros disparos. 
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JUEGOS 


Bomb. Cambia nuestros disparos por bombas, 
que provocan una explosión de gran magnitud 
cuando impactan con un enemigo. 
Láser. Este tipo de disparo presenta la ventaja 
de no inutilizarse aunque impacte con una nave 
contraria. 
H. Miss. Esta opción selecciona misiles 
dirigidos por el calor. Son muy lentos, pero 
nunca fallan. 
Shidd. Seremos inmunes a los disparos 
enemigos durante unos instantes. Resulta 
interesante tener la flecha apuntando a esta 
opción y, en un momento de dificultad, 
seleccionarla. 
Como hemos visto, las posibilidades con que 
podemos aumentar la eficacia de nuestra nave 
son variadas, lo que da un poco de dinamismo al 
juego, que sin esto resultaría monótono. 
SIap-Fight, en su aspecto gráfico, está bien 
realizado, aunque el tipo de visión desde arriba 
no da muchas facilidades para el lucimiento. Las 
naves, tanto la nuestra como las enemigas, son 
muy pequeñas, y las balas que nos lanzan son 
tan sólo un diminuto punto, por lo que muchas 
veces, sobre todo en las primeras partidas, 
notamos su presencia cuando perdemos una vida. 
El movimiento resulta un poco lento, aunque con 
la opción speed podemos paliar esto en parte. 
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STAR RAIDERS 11 
Invasores estelares 


l' 
, 


Casa creadora: PROEIN, S. A. 
Proein, S. A. Tel. 276 22 08 
Cinta: 880 ptas. Disco: 2.395 ptas. 


S tar Raiders 11 es otro típico juego de «matar 
marcianos». Para ello contamos con una nave 
equipada con tres tipos de armas, que 
emplearemos según d enemigo a que nos 
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enfrentemos. Las fuerzas enemigas mermarán 
nuestra energía y, ocasionalmente, inutilizarán 
alguno de nuestros sofisticados dispositivos: 
sistema láser, cañón iónico, motores, etc. Para 
repostar energía y armamento podemos dirigimos 
a alguna de las estaciones espaciales dispersas por 
d sistema, pero debemos tener cuidado en no 
acercamos demasiado al Sol, que se halla en el 
centro dd mismo, pues esto sería fatal para 
nuestra nave. 
En Star Raiders 11 se ha degido un sistema 
de juego que intenta simular las tres dimensiones, 
pues nosotros vemos en la pantalla dd ordenador 
lo que veríamos si estuviéramos dentro de la 
nave. De este modo, podemos observar cómo 
nuestros enemigos aumentan de tamaño a medida 
que se van aproximando a nuestra posición. Este 
método de presentación, que en otros juegos ha 
dado gran resultado, no es aprovechado dd todo 
por éste. A nosotros nos da la impresión de que 
hay pocos tamaños intermedios, y vemos «crecer» 
repentinamente a las naves enemigas. El color es 
pobre, así como la definición de los gráficos, pues 
la mayoría de las naves espaciales no aparecen 
«rellenas», dando la impresión de haber sido 
fabricadas con trozos de alambre. Aparecen muy 
pocos contrincantes al mismo tiempo (tres a lo 
sumo). 
Contamos con un mapa informativo de nuestro 
Sistema Solar, y podemos dirigirnos a la zona 
que deseemos. En este juego la táctica es 
importante para la consecución de nuestro 
objetivo. Lástima que esta idea no se haya 
aprovechado con unos gráficos más cuidados y 
vdoces. La mdodía de presentación es buena, y 
los sonidos propios dd juego (disparos, 
explosiones...) están bien conseguidos. 
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Para solicitar 
tus tapas, 
lIámanos 
al tel. (91) 
734 65 00 
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gracias a un sencillo 
sistema de fijación 
que permite además 
extraer cada revista 
cuantas veces sea necesario. 


I 



Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase d( 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, : HOBBY 
PRESS, S. A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
¡ABSTENERSE PIRATAS! 


Estoy interesado en 
intercambiar programas, trucos 
y cualquier tipo de información 
en general del Amstrad PC 
1512 o compatible IBM. Tengo 
entre otros: Cobol, Turbo- 
Pascal, Wordstar, Dbase 111, 
Summer Carnes 11, etc. Llamar 
al te!. (96) 544 89 63. O 
escribir a Julio Ruiz Reche. 
Ramón Vicente Serrano, 12, 4, 
2. 03206 Elche (Alicante). 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
F. V, con impresora Admate 
DP-80 LQ y el cable de 
conexión al ordenador, ratón 
Starmouse con software, cable 


conexión cassette y 20 discos de 
3 pulgadas con los mejores 
programas comerciales de 
utilidad y unos 100 juegos (los 
más actuales), todo comprado 
en enero 1987. Hardware 
valorado en 150.000 ptas. 
Software valorado en más de 
250.000 ptas. Vendo todo por 
140.000 ptas. También 
contactaría con usuarios del PC 
1512. Te!. 268 26 65. Andrés. 
Comidas. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128, 
en perfecto estado, con monitor 
color y unidad de disco, 
manuales y revistas, discos con 


Mercado 
COMU

 


juegos y utilidades. 
Opcionalmeme: im presora 
DMP-2000 (Amstrad). Nueva y 
de muy altas prestaciones. Por 
100.000 ptas (Impresora 35.000 
ptas.). Interesados llamádme al 
tel. 747 33 47 de Madrid. Mario 
Pons. 


. . . . . . . . . . . . . . 


Vendo ordenador Amstrad 
CPC 6128, con monitor en 
color, por 90.000 ptas, incluyo 
discos de sistema operativo y 
utilidades del sistema, manual 
en inglés y en español, regalo 
libro acerca del sistema 
operativo CPM. Vendo 
programas de utilidad, de 
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"Sábado Chip ", de 17 a 19 h. 


, 
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dibujo y diseño, procesadores. 
compiladores, juegos (en total 
16 a 400 ptas. el disco), 
también una colección de 
revistas (Amstrad User, Tu 
Micro Amstrad) a mitad de 
precio de portada, volúmenes 
de Gran Biblioteca Amstrad a 
300 ptas y discos vírgenes de 3' 
de la marca AMSOFT a 700 
ptas. (tengo veinte). Llamar a 
Juanjo, tel. (96) 333 91 89 de 
Valencia, o escribir a Juanjo 
Ripollés Ortiz. Pza. Manuel 
Sanchís Guarner, 6, 1, 1. 46006 
Valencia. 
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. . . . . . . . . . . . . . 


Vendo ZX Spectrum de 48 
K, junto con su respectivo 
transformador, por 7.000 ptas. 
Interesados llamar al tel. (96) 
242 35 15 o escribir a Raja el 
Castell Llacer. A vda. País 
Valeciano, 26. 46680 Algemesí 
(Valencia). 


. . . . . . . . . . . . . . 


Vendo, compro o cambio 
juegos y programas para CPC 
464. Vendo o cambio revistas 
Amstrad U ser y AMSTRAD 
Semanal. Escribir a José Luis 
Toledo de Dios, Brígida Alonso, 
7, 1. o A. 28038 Madrid. 
Contesto siempre. 


. . . . . . . . . . . . . . 


Intercambio programas para 
ordenadores Amstrad CPC 464 
y 6128, tanto en cinta como en 
disco. Los interesados deben 
mandar su lista a Carmelo 
Guzmán de la ROJa. A vda. 
Andalucía, 25. 111.'160 Barbate 
(Cádiz). O llamar al tel. (9.56) 
43 03 35. Prometo contestar a 
todos. 



 


. . . . . . . . . . . . . . 


Compro o cambio por 
programas de todo tipo el 
manual de todas las rutinas del 
Firmware, es decir, el Firmware 
Specification Manual Soft 158. 
Los interesados llamar al tel. 


(965) 566 19 75 (si es posible 
por las mañanas). Si los 
interesados son de la provincia 
mucho mejor. Pedro Navarro 
Miralles. San Juan, 31, bajo 
dcha. San Vicente (Alicante). 


. . . . . . . . . . . . . . 


Vendo o cambio programas 
para Amstrad CPC 464. 
Interesados, dirigirse a Manuel 
Francisco Barrios Pérez Olmedo 
2-4, 1.0 D., 37003 Salamanca. 
Precio a convenir. 


. . . . . . . . . . . . . . 


Cambio juegos, todos 
funcionan perfectamente, 
grabados en disco nuevo por 
primera vez. Absoluta seriedad. 
Escribir a: Francisco Fuentes. 
Pintada Baja, 21. 23440. Baeza, 
o llamar por tel.: (953) 7401 94 
de las 4 de la tarde hasta las 12 
de la noche. 


. . . . . . . . . . . . . . 


I , l 
I 
,! ), 
1 
J I ,. 1 ,,
 
IL. 
"1 ( A 
\ 


, 


I ' 


, 


I J ,." 
 ',.. ...
 
, 
RADIO POPULAR 
... de chip a chip 


Todos los sábados, de 5 a 7 
de la tarde, en "Sábado Chip" . 
Dirigido por Antonio Rua. 
Presentado por José Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informática. Haciendo 
radio chip... estilo Cope. 
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IMP'ESORAS. 
COMO HACE. lA 
MIJO. fUCCION 
ATENCfON;/I NIJE$fTlO 
FABULOSO CONtufl$(J. 
#'UEDES GANAR UN 
CPC-6128 CO" 
SOlO CAIGAR lA CINTA 
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Historia de la 
Informática. 
Cómo trabaja 
un 
prog ra mador. 
Todos los 
comandos rsx. 
La informática 
en casa. Los 
mejores 
superJuegos 
del mercado. 
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Todas las 
impresora s del 
mercado. 
Software 
integrado: 
Fidicom, un 
paquete 
enteramente 
profesional. 
Paginación de 
memoria. 
Inteligencia 
artificial. 
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CAD/CAM: TODO 
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Robótica. La 
segunda 
revolución de 
la informática. 
Forth, la 
sustitución del 
código 
máquina. El 
juego de la 
vida. El 
mundo de los 
Plotters. 
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Especial 
Juegos: Pokes 
para todos. Lo 
mejor del 
mercado en 
joystick. 
Juega con 
Forth. Serie 
oro: Juego de 
ajedrez. 


Desvelamos 
los secretos 
de los mejores 
juegos de 
Amstrad 
Animator, un 
programa 
apasionante. 
CAD/CAM, lo 
mejor del 
softwa re 
nacional. 
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L as pantallas iniciales se pueden pasar 
pulsando tecla, excepto si se nos pide la 
cantidad inicial de dinero. El ordenador 
indica el número de cartas a cambiar en el 
tapete. 
En la línea inferior se nos indica quién es mano y 
en la línea superior se nos dan las instrucciones a 
seguir: 
- Si pulsamos «X» cuando se indique, el 
ordenador nos asesorará qué cartas cambiar. Una 
vez hecho, pulsar tecla... Si no se requiere ayuda, 
pulsar Return. 
- Preguntará si la carta N quiere ser cambiada. 
Si es así pulsar «S» y se borrará dicha carta. Si no, 
pulsar Return. 


- Preguntará lo que queremos apostar o nos dirá 
lo que nos falta para igualar la apuesta del 
ordenador, la cual puede ser superada. 
- Una vez que se indique quién gana (en el 
centro del tapete), pulsar tecla. 
Hay que tener en cuenta que el ordenador no 
enseñará sus cartas si pierde. 
Si se usa cinta y se produjese el error «Memory 
Full» (cosa casi imposible) se grabarán los datos, a 
continuación se rebobina la cinta y se pulsa tecla. 
Si no se quiere ir a alguna apuesta, pulsar Return 
dos veces. 
Al principio puede parecer fácil ganarle, pero más 
adelante veréis que no es así. 
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Tabla de variables 
nombreS Nuestro nombre. 
Nivel de juego; ha y I 3 . 
nivel Dinero ¿ue posee e 
din 1 ordena or. 
din2 Nuestro dinero. 
Switch de quién es mano. 
juego 1 Su valor es 1 ó 2. 
azar 1 Número de la carta/s. 
Palo de la carta/s. 
azar2 Juego del ordenador en 
ju1 (i) una carta. 
ju2 (i) Nuestro juego en una 
carta. 
p1$ (i) Palo del ordenador en 
una carta. 
p2$ (i) Palo de una carta 
nuestra. 
vblen 1 (i) Carta (númeroJ que no 
descarta el or enador. 
vblen 1 $ (i) Carta (palo) que no 
descarta el orC!enador. 
vblen2 (i) Carta (número) de la que 
no noS descartamos. 
vblen2$ (i) Carta (palo) de la que no 
nos descartamos. 
punt1 y punt11 Puntuaciones para el 

ego del ordenador. 
punt2 y punt12 untuaciones para 
nuestro jui:.T 0 ' 
ap1 
uesta de ordenador. 
uestra apuesta. 
ap2 Acumulador de apuestas 
suma 1 del ordenador en una 
suma2 A



Iador de apuestas 
nuestras en una mano. 
opu Total atostado en una 
mano. aS demás 
variables como «veces», 
«cartas)..., son 
contadores, 
comparadores, etc. 
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Eslrudura del programa 


2 ... 


.. 
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1 0-480 
490-580 
590-840 
850-11 00 
1110-2090 
2100-2500 
2510-2920 
2930-3210 
3220-3430 
3440-3570 
3580-3850 
3860-4190 
4200-4320 
4330-4480 
4490-5170 


Presentación. 
Definición de cara
t,:r!,s, 
Reparto de cartas InicIal en 
una mano. 
Cuerpo principal del programa. 
Descarta el ordena
or. I 
Puntuación para el luego de 
ordenado r. , . 
Puntuación para mi lue
o. 
Descarte para nuestro luego. 
Apuesta del ordenador. 
Apostamos nosotros. , 
Comparación de puntuaCIOnes 
para ver quién gana. II 
Enseña los juegos por ponto a. 
Gestión del posible erro bl d I e 
.memory full» (improba e. 
Dibujo del tapete. b' 
Rutina de ayuda p
ra cam 10 
de cartas de! usuano, por 
parte del ordenador. 
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8
0 IF juego\=1 THEN GOSU8 2930 1360 vblenll ¡=O:vblenl$(x)=" 
C

8IJJ CARTAS YO <ICA
BIYO) 1370 NEX 

OO IF juegol=1 THEN GOSUB 4020 1380 yetes=O 
: 'ENSE\A MIS CARTAS (KASIGNAJ 13
0''RE
 mu 1 o_a s earla 

IO IF juegol=1 THEN punt2=0:GOSllB. .. 
2 . 510 :'PUNTUACION PARA I'fI JUEGO (I'f 
 R.X= 05 . 
COPUNAP) 41 . )1 
920 IF juegol=2 THEN GOSUB 2
30 :' LE Y __ . 
CAI'fBIO CARTAS YO <ICA
BIYO) 1
0 IF' . ul" THt..=¡u. . 
930IF juegol=2 THEN GOSUB 4020 :k$= '$( Hx J';;fty):P\$(x)=pl$ I 
: 'ENSE\A m CA
TAS (KASIGNA) . L. 

40 IF juegol=2 THEN punt2=0:GOS l 1440 y=y+1 e 
2510 : 'PUNTUACION PARA I'fI JUEGO 
 1450 WENO 
COPUNAP) 1460 NEn 

50 IF juegol=2 THEN GOSllB 1110: WO - asign! 1 a. 
'CAlIBlA CARTAS EL ORDENADOR (CA
 F s q , ,a s 

60 lF juegol=2 THEN puntl=o:GOS
 ::
 
 
 
2100 : 'PUNTUAClON JUEGO OROENAOdR (x)= ( ):V 
(
COPUNAP) ;,. (x+lJ=j H):v .$ . 
!
O aPI=0:ap2=0:sutal=0:su
a2=0:i,fPu
;eees /11 

80 IF juegol=2 THEN GOSUB 3440:t F 
 eesOO THEN TI_O 
ap2<>O THEN GOSUB 3220:GOTO 1040 EL --¡S20 muu C 10 3
RT 
SE punt2=I:puntl=0:GOTO 1080 ARA L ORDENADO 
A ESCALERA t 
990 lF juegol=1 THEN GOSUB 3220:IF 
 mmu " " 
aplOO THEN GOSUB 3440: GOTO 1000 EL 1530 FOR _ 
SE puntl=l:punt2=0 1540 vblen x1W:vb (
 
1000 WHILE su
alOsu.a2 AND (apWO 50 Nm " 
ANO ap2<>O) 15
 veees=O 
 / 
1010 SOSUB 3220: 'SUBE EL ORDENADOR l510)£
 mu 1. - rIII/ ,la 
1020 GOSUB 3440:' SUBO YO s 
1030 WEND 15BO FOR x . TC 5 /) 
1040 WHILE sUla1{}sula2 ANO (apWO 15
0 y=1 
 
ANO ap2(0) 1600 WHILE xOy 
1050 GOSUB 3440: 'SUBO VC 1610 IF ju!(x){jull) _,o k=juHx) 
1060 GOSUB 3220: 'SilBE EL ORDENADOR :k$=pl$(x):juIW=jul y):pl$(x)=pl$ 
1070 WENO (y):juHy)=k:pl$(y)=k$ 
lOBO SOSUB 3580: 'CO
PARAC¡ON DE PIIN 1620 y=y+l 
TUACIONES 1630 WEND 
1. 'F juegol=1 THEN juegol=2 ELSE 1640 NEn 
juego 1650 REI'f tUU 2. - asigna las carta 
1100 GOTO : 'SALTA Al PRINCIPIO s que se queda a otras variables 
PARA LA SIGUItNTE "ANO 1660 y=1 
1110 RE
 CA"
O DE CARTAS PARA ORDE 1670 FOR x=1 TO 5 
):azar2=!IN NAOOR CON ATRO O 
AS CARTAS CON 
 1680 vblenHy)=O 
IS
O PAl 16
0 WHILE juHy+l)-ju!(y)=1 ANO y{ 
1 R x=1 TO 5 
1130 vblenHx)=O:v 'enl$(x)=" 1700 vblenHy)=juHy):vb:enl$(y)=pl 
O Nm $(y) 
1150 veees=O :710 vblen1(y+1J=ju!(y+lJ:vblenl$(y 
1160 FOR . 
1J=pl$(y+!) 
1720 y=y+ 1 
1730 WEND 
1740 y=y+1 

 1750 Nm 
:760 IF juH5)-juHIJ=12 THEN vblen 
1 (1)=jul (IJ: vblenl$( I )=pI$W: vblen 
1 (5)=jul (5): vb lenl $( 5)=p 1 $( 5): veces 
1230 IF, es=IO THEN eatbl=O:G O =veees+1 
\ 1770 RE" UtU 3. - asigna O a las e 
¿
"{}6 THEN 1340 artas que M se queda 
lx'f' ,O 5 1780 x=5 
+ .TO & 1790 IIHILE x}O 
x pl$(y) THEN IF pl$( :BOO lF vbJenHx){}O 4NO vblenHx-1 
y-tI 1$(y){}pl$(y+1J T JOO ANO vblen!(x)-vbJenHx-I){}1 T 
nl$(y)=pl (y):vblen!(y)=jul \EN 'iblenlk!J=O 
v
' .: -pl$(x):vblenl(x ! 10 x=x-l 
., lB WENO 
183 FOR 'x=5 TO 1 STEP -1 
lB40 F vbIenHx)(}O 
HEN vetes=vee 
1300 FOR x=1 TO 5 es+! 
1310 lF vblenHx)=O THEN vblenHx)= 
:F vblenHx)=O ANO veeesOO TH 
\A "lS CART ju!(x):.'iblenl$(x)=pl$(x) ElSE vl;l.en""'" EN FOR y=x TO 1 STEP -1:vblenHy)=O 
ASIGNA) !(X)=o:vblenl$( 
 .J='" ' :x=O:NEXT 
gol=1 THEN GOSUB 1110: 1320 Nm. 1860 Nm 
,TAS EL ORDENADOR (CAr1OEF 1330 GOTO IBM' lB70 lF ¡uH5)-juHI)=12 THEN vblen 
) 1340 BElrmuu CA"BIO DE CARTAS P !(I)=jul(1):vblenl$(IJ=pl$(1):vblen 
3
0 GOTO ISO 880 'r juegol=1 ,EN :puntl=O:GOSUB 
 El ORDENADOR CON 2 o I'fAS CAR
AS 1(5)=juHS):vblenl$(S)=pl$(5):veees 
400 lOCATE.4.2.1: PP-' R $f ) - O : 'PUNTII 
ION JUEGO . ORDENAOOft' IGUAlEStt =veees+! 
6)'-' (I'fCOPlINA 1350 FOR x=1 Te 5 1880 
E
 DESCARTE PARA EL ORDENADOR 

 .. 


.: - . 
":..=-: serIe oro 
- 


1 O RE
 »>)} »> »> }} »> »> }) PRESE 
NTAClON V DEFlNICION DE CARACTERES 
PARA PALOS 
20 
ODE O 
30 ON ERROR GOTO 4200 
40 RANDOmE TI"E 
50 BOROER 3. 5 
60 PAPER 10:PEN 14 
70 LOCATE 6.l2:PRINT "P O K E R" 
80 WINOOWI3.1, 20,13. 25:PEN.3. 4: PAPE 
R'3. 11 : CLS.3 

O WINOOWI4.I.20, 1.11: PENI4.O: PAPER 
14.I:CLSI4 
100 LOCATEl4,3,5:PRINTI4."F o R A S 
TE R O" 
110 LOCATEl4.5,7:PRINTl4,"te echas 
un" 
120 LOCATE'3. 
 .5:PRINT.3,"POR' 
130 lOCATE'3.4.7:PRINT'3,"NACHO Jll'i 
ENEZ" 
110 LOCATE'3.
.8:PR¡NT'3, "(e)" 
150 ENV 1.1.15.1.1.0.1,1.0.1.12.-1, 
8.2,-1,20 
160 50UND 1.200.100.15.1 
170 GOSUB 400 
180 PRlNT.4." JUGADAS" 
190 PRINTI4:==========" 
200 PRINTl4," - pareja":PRINTI4," 
- doble pareja':PRINT'4.' - trio" 
:PRlNT ' -. ealera
TI4." 
o or":PRINT.4'" -/full":i'1mij14 
." - pOker":PRIN\".' - escalera 
color" 
210 LOCATEl3.4.5 RINT' 
AXI
A:":lOCATE '.B,7:P 
$" 
220 GDSUB 4 
230 LOCAT 4.3.5:PR 
mo : .PRlNTU:PR 
TAS" 



 


I 
: I 


410 lOCATEI4.16.I:PRINTl4, "-"CHR$(2 
29)'-" 
420 LOCATE'3.2.13:PRINTI3, "-"CHR$(2 
2B)'-" 
430 LOCATE'3.16, 13:PRINT.3. "-"CHR$( 
227)'-' 
440 ENV 2.1.15.1,1.-3.2.1.0.3,1.1.3 
,1,-1,3 
450 SOUND 1.667,50,15.2.0 
460 CAlL &8B18 
470 LOCATE'3, J .12:LOCATEt4.I,12:FOR 
x=1 TO 25:PRINTl3:PRINTI4:Nm 
480 RETURN 
4
0 SYI'fBOl AFTER O 
500 SYr1BOl 240.0.24,24,60,60,126.12 
6.255 
510 SYI'fBOL 241.255.255.126.60.24.24 
.60.255 
520 SYI'fBOL 242.66.102.231.231,255,2 
55.255.255 
530 SYI'fBOL 243.126,126,60.60,24.8.0 
,O 
540 SY
BOl 244,0.0.24.24.60.60,126. 
126 
550 SY
BOL 245.255.255.126.126.60,6 
0.24.24 
560 SY
80L 246.60.60.60.60,60.255,2 
55. 255 
570 SYKBOL 247.255.255.255.24.24.24 
,255.0 
580 
ODE I:CLS:BOROER 
 
5
0 juegol=1 
GOTO 4330 
610 . }}}}}}» »>>>}}>>>> E
PlEZ 
A EL JUEG 
620 REI'f 
630 lOCATE'I,15.IB: 
'I.din!:LOC 
ATEII.I.4: PRINT'I.din2: 
egol=1 
THEN LOCATE 23.2S:PR¡NT"
ANO L 
SE LOCATE 10.25:PRINT""ANO TU" 
640 REI'f »»»}})}}»)})}}» CARTAS 
EL ORDENADOR {{{«({{«{{{({{ 
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V CIJI1PROBACIDN DE NO REPETICIDN 
lB90 cartas=O 
1900 FOR x=1 TO 5 
1910 IF vblen!(x)=O THEN cartas=car 


tas+: 


t 
., 


1 no NEn 
1930 LOCATEt1.2, 18:PR:Nm,'caMbi
 
: 'i cartas 
1940 FOR x=1 m 5 
:950 azarl=ClNHRNOtI3)+n: azar2=(: 
NTCRNOUH 226) 
1960 !F vblenlCx)=O THEN vblen!Cx)= 
azarl:vblenlS(x)=CHRS(azar2) ELSE 2 
050 
1970 FOR y=: 10 5 
1980 IF julCy)=azarl ANO ;.1$(f)=CHR 
S(azu2) THEN vblenlh)=O:GOTD 1950 
1990 IF ju2(y)=azarl ANO 
2S(y)=CHR 
S(azar2) THEN vblen!(
:J=O:GOTO 1950 
2000 FOR t=1 TO 5 
2010 !F t=x THEN t=t.1 
2020 IF vblenHt)=azarl ANO vblenlS 
(P=CHRS(azar2) THEN vblen!(x)=O:GO 
TO 1950 
2030 NEXT 
2040 NEn 
2050 NEn 
2060 FOR x=1 TO 5 
2070 ju!Cx)=vblenlCx) :pIS(x)=vblenl 
S(X) 
2080 Nm 
2090 RETURN 
2100 RE" }}}}}}}})})}}}}}}}}} PUNTU 
ACION SEGUN JUEGO PARA ORDENADOR 
2110 RE" 1. - Ordena las cartas 
2120 FOR x=1 To 5 
2130 Y"I 
2140 WHILE xOy 
2150 IF jul(x){jul(y) THEN k=jul(x) 
: kS=pl S( x): juI (x)= jul (y): pl$(x)=pl S 
(y): jul(y)=k:pIS(y)=U 
2160 y=y+1 
2170 WEIID 
2180 NEn 
2190 RE" CARTAS IGUALES (par 
eja. doble pueja, trio, fui!, poke 
r) 
2200 puntl =0 
2210 FOR x=1 To S 
2220 y= 1 
2230 WHILE x(}y 
2240 IF jul(x)=ju!Cy) THEN punU=pu 
ntl+1 
2250 Y'y+ 1 
2260 WEND 
2270 NEXT 
2280 IF punU 00 THEN RETURN 
2290 RE" ESCALERA 
2300 punU =O 
2310 FOR x=1 TO S 
2320 y=1 
2330 WHILE x(}y 
2340 IF julCx)-jul(y)=A8S(I) OR jul 
(x)-jul(y)=ABSC!2) THEN puntl=puntl 
+1 
23SO y=y+1 
2360 WENO 
2370 Nm 
2380 IF puntl=4 THEN punU=3,S ELSE 
puntl=O 
2390 RE" COLOR 
2400 puntll =0 
2410 FOR x=1 Te 5 
2420 y= 1 
2430 WHILE xOy 
2440 IF pl$(x)=pl$(y) THEN puntll=p 
unUI+1 
2450 y=y+ 1 
2460 WEND 
2470 Nm 
2480 IF puntl=3.S ANO punUI=IO THE 
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en 
en 
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,c 


(-1 
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vec 
TH 
)=0 
[en 
,len 
ces 
lOOR L_ 
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3040 FOR x=1 To S 
3050 azarl=INT((RND 
Te (RNDUJ+2W 

 If vbIen2(x)=0 THEN vblen2(v) 
1Z1f1:vblen2S(x)=CHRS(azar2) ELSE G 
OTO 3170 
3070 FOR y=1 To S 
3080 IF ju2(y)=azarl AND p2$(y)=CHR 
$(azu2) THEN vblen2(x)=0: 
3090 Nm 
3100 FO 
\ 


N puntl=IO:RETURN 
2490 IF punU03,S AND punUI=IO TH 
EN punttw3, '15rRETURN 
2500 IF puntl03.5 AND punU1010 T 
HEN puntl=O: RETURN 
2510 RE" )}}}}}}}}}»»mm P\!NTU 
ACIoN SE6UIIJIl JUEGO 
2520 REII 1, - Ordena las cutas 
2S R FOR x=1 TO S 
25 y=1 
255 WHILE x{}y 
2S60\IF ju2(x)(ju2(y) THEN k=ju2(x) 
: kS'ptS(x): ju2(x)=ju2(y): p2$ 
(y): j
(y)=k:p2$(y)=kS 
2570 y:;+I 
2580 W
 
2590 NEX' t'""\ 
2600 RE" CARTAS IGUALES \ eY 
eja, dOble 
 areja, .trio, full, . 
r) 
2610 punt2= 1 
2620 FOR x= 1 re 5 
2630 y= 1 
2640 WHILE x(} 
2650 IF ju2(x)= u2(y) THEN punt2=pu 
nt2+1 
26
0 y=y+l 
2670 WEND 
2680 Nm 
2690 IF punt2(}0 THW RET N 
2700 RE" . ESCA,ERA 324 OCATE 10.25: RINT"_ 
2710 punt2=0 \ ':lGC, ,PR 
2720 FoR x=1 To S O Y , 
2730 y=1 C1 2S0 farol=INnR t) 
2740 WHlLE x{}y 3260 IF nivel= H 
2750 IF ju2(x)-ju2(y)=ABSU R ju2 EN puntl=O EL I n' 
(x)-ju2(y)=A8S(12) THEN punt2=punt2 1=2 THEN apl=CIN 
+1 '" uol:GoTO 3351 
2760 y=y+1 3270 IF punU=O THEN LO 
2770 WEND RINT'NO VOY 
2780 Nm 3280 IF punU=1 THEN apl=ClNT(( 
2790 IF punt2=4 THEN punt2=3,5 ELSE )+II*IOO)+farol: 'PAREJA 
punt2'0 32 IF punU=2 THEN apl=tINTCCRNOt 
2800 RE" COLOR 6)+11 )+farol: 'D08LE PAREJA 
2810 puntl2=0 3300 IF pu =3 THEN apl=(lNTCCRNOt 
2B20 FOR x=1 To S 8)+1I*100)+far ' 'TRIO 
2830 y=1 3310 IF puntl=4 T pl=ClNT((RNOt 
2840 WHILE xOy 9J+II*100)+farol: 'FUL[ 
2850 IF p2S(x)=p2$(y) THEN puntl2=p 3320 IF puntl=6 THEN apl= 
unt12+I 7J+lltIOO)+farol: 'PCKER 
2860 y=y+l 3330 IF punU=3,S THEN apl=ClNT(( 
2B70 WENO Ot9J+II*IOO)+farol: 'ESCALERA NOR"AL 
2880 NEXT 3340 IF puntl=3,7S THEN apl=C!NTCCR 
2890 IF punt2=3,S AND punU2=10 THE NOtll)+1JtIOO)+farol: 'COLOR 
N punt2=10:RETURN 3350 IF puntl=IO THEN apl=(lNT«RNO 
2900 IF punt203,S ANO puntl2'10 TH tIIJtIJtIOO)+farol: 'ESCALERA DE COL 
EN punt2=3, 75: RETURN oR 
2910 IF punl203,S AND punt12010 T 3351 IF apl>dinl AND sUla2=0 THEN a 
HEN punl2=0: RETURN 1 =di 1 
2920 RETURN P n , 
2930 RE" »)}»}»»»}}»}) RUTINA 33
2 IF apl>dlnl,ANO (suu2-sulalJ< 
=dlnl THEN apl=dlnl 
DE CA"BIo DE CARTAS PARA "1 Y Co"P 3353 IF apl>dinl ANO (sula2-sulalJ) 
R08AC IONES DE NO REPETlCION din 1 THEN a 1 =0 
2940 zx=2 P 
2950 FOR x'l To S 3370 IF apl +suul{sula2 ANO puntl> 1 
2960 vblen2(x)=O:vblen2$(X)=" THEN'apl=sun2-suul:SOIIII6 1,200.1 
2970 NEXT 00.15.1.0 ElSE IF apl+sulal<suu2 A 
2980 LoCATE 11,1: INPUT'PULSA x PARA NO puntl<=1 THEN apl=O:LoCATE 10.25 
AYUDA' .aS: IF aS='X' OR aS='x' THEN :PRINT 'NO VOY ':SOUNO 1.800,1 
6oSU84480 OO. 15,1 ,0:suul=sula2:RETIIRN 
2990 FoR x=1 To S 3380 IF apl>din2 ANO sUla2<>O THEN 
3000 LOCATE 1I.I:PRINT'CA"8IAS LA'i apl=suu2-suul:SOUND'I.200,100.IS. 
xi'?'i: INPUT '(S/N)', sino$:LOCATE 1 1,0 ELSE IF apl>din2 ANO SUla2=0 TH 
1,I:PRINT' · EN apl=din2:SoUNO 1.200.100.IS.I,O 
3010 IF Ilnom*S' ANO stnotO's' T 3390 LoCATE 23.2S:PRIN
 apl. 
_' ( , b 2$' 3400 SUlal=sulal+apl:dlnl=dlnl-apl 
HEN vblen2(xJ-¡u2 x). v, len 
x
, p2$ 3410 LoCATEtI.IS.18: IF dinl=O THEN 
(x) ELSE LoCATE' l.zx+2.PRINT .LOC PRINTtI . ___o ElSE PRINTII dinl 
ATE l.zx+3:PRINT' ':LOCAYE 8.zx:PRI 3420 GoSUB 3560 . 
NT C
R$(222):LOCATE I.zx:PRINT . 3430 RETURN 
3020 zx=zx+S 3440 RE" »}}}}}}}})}})}}»» APUES 
3030 NEXT TAS 


,azar2=IN 


3450 RE" 
TO YO 

4 . F sUla 
sula2 AN 
EN RETlrN 
3470 OCATE tI, ,19:PRINTII,' 
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. I:P Rtl.6:PENtl, 
I GANO' ijinl=dinl+apu:B 
ORO' :FOR x- TO ISOO:NEXT:BOR 
ER 9:GOSUB 3 
3 FOR t=1 
FOR x=1 TO 3:S0UN _____ I 
O 1.2 .1S,I:F
 y=1 TO 300:N.w..-.------ 
:NEXT:SOUNo 1.ISO,IS,1S,t:FO'¡;=1 T I 
O 300:NEXT:SoUNO 1.120,IS.Is,¡:NEXT 
:FOR x=1 TO SOO:NEn 
3650 FOR x=1 TO 200: Nm:FOR x=1 TO 
2:S0UNO I.IS0.IO,IS,I:FOR y=1 TO 3 
OO:NEXT:NEXT:FOR x=1 TO 2:S0llNO 1.1 
60.10,15.I:FOR y=1 TO 300:NEXT:NEXT 
:FOR x=1 TO 2:S0UNO 1.180.10.IS,I:F 
OR y=1 TO 300:NEn:NEn:SOUNO 1.200 
.20.15.1 
3660 GOTO 3780 
-3¡70 IF punt2}puntl THEN LOCATEtl,7 
,11 :PAPERtl.6: PENII,I:PRINTII, 'TU 6 
ANAS':FOR x=1 TO 300:S0UNO I.xl2.I, 
IS.2.0:NEn:din2=din2+apu: GOTO 3780 
3680 IF (puntl=3.S ANO punt2=3.S) O 
R (puntl=IO ANO punt2=10) THEN IF j 
u!CS)}ju2(S) THEN puntl=l:punt2=O E 
LSE punt2=I:puntl=0 
3690 FOR x=1 TO 5: vblenl(x)=O: vblen 
2(x)=0:NEn:FOR x=1 TO 5 
3700 IF jUl(x)=jul(x+!J THEN vblenl 
(x)=jul (x) :vblenl (x+I)=jul (x+l) 
3710 IF ju2(x)=ju2(x+1J THEN vblen2 
(x)=ju2(x): vblen2(x+ 1 )=ju2(x+ 1) 
3720 Nm 
3730 FOR x= 1 TO S 


o LOCAT 


'" 
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3740 FOR y=1 TD 5 
3750 IF vblenlCx)}vblen2(y) THEN pu 
ntl=punU+1 ElSE IF vblenlCxJ<vblen 
2(y) THEN punt2=punt2+1 
3760 NEn: NEn 
3770 IF puntl (}punt2 THEN 3620 ElSE 
lOCATEII. l. 13:PENII.4:PRINTlI , 'IGU 
ALE S': di nI =dinl +( apul2J: din2=din2+( 
apul2): GOTD 3840 
3780 lOCATEII. 2,9:PAPERII. 3:PENII.3 
:PRINTII,' ':PAP 
ERI3.6:PENII.1 
3790 IF sUlal=O DR sUla2=0 THEN 384 
o 
3800 IF punWpunt2 THEN 3820 
3810 IF punt2}punU THEN 3830 
3820 FOR x=13 TD 17:l0CATEII.2.x:PR 
INTII,'PARA 
I ... 'japu:LOCATEII.1 
.x-I:PRINTlI,' , 
:SOUND 4.67.20.7.0.0.7::NEXT:FOR x= 
1 TO 1500:NEn:LDCATEII,I.I7:PRINTI 
1 " , : GDTD 3840 
3830 FOR x=9 TD 5 STEP -I:LOCATEII, 
2.x:PRINTlI. 'PARA TI ..' ';apu:LDCAT 
EII.I. x+l: PRINTlI,' 
':SDUND 4.100,20.7,0.0,7: NEn 
: FDR x=1 TO 1500: NEn: lOCATEIl,1, 5: 
PRINTlI, , , 
3840 LOCATEII.15.18:PAPERII.6:PENII 
.1: PRINTII.dinl :LOCATEII.I.4:PRINTI 
l.din2:SDUND 1.4000.20,15.0.0.2 
3850 CAlL &BBI8:RETURN 
3860 RE" )})})})})})}m)}})} ASIGN 
A CARTAS A LOS VALORES NU"ERICOS 
3870 zx=2 
3880 FOR x=33 TD 39: FOR y=zx TO zx+ 
3:l0CATE x.y:PRINT ' ':NEXT:NEn:zx 
=zx+5: LDCATE 1,1: IF zx=27 THEN 3890 
ElSE GOTD 3880 
3890 zx=2:FOR x=1 TD 5:IF pl$(x)=CH 
R$(22B) OR pl$(x)=CHR$(227J THEN LD 
CATE 33.zx:PEN 7:PRINT ju!(x)jpl$(x 
) ElSE LOCA TE 33.zx:PEN O:PRINT jul 
(xJ;pl$(x) 
3900 PEN o 
3910 IF p!S(x)=CHR$1Z23¡ TllEk LotAT 
E 39.zx+2:PEN 7:PRINT CHR$(242):LOC 
ATE 39,zx+3:PRINT CHR$(243) 
3920 IF pl$(x)=CHR$(229) THEII LDCAT 
E 39.zx+2:PRINT CHR$(240):LOCATE 39 
.zx+3:PRINT CHR$(24IJ 
3930 IF pl$(x)=CHR$(226) THEN LOCAT 
E 39.zx+2:PRINT CHR$(246) : LOCATE 39 
.zx+3:PRINT CHR$(247J 
3940 IF pl$(x)=CHR$(227J THEN lOCAT 
E 39.zx+2:PEN 7:PRINT CHR$(244):LOC 
ATE 39.zx+3:PRINT CHR$(245) 
3950 IF jul(x)=1I THEN lOCATE 34,zx 
:PRINT 'J ';pl$(x)j' , 
3960 IF julCx)=12 THEN LDCATE 34.zx 
:PRINT 'Q 'jp!S(x)j' , 
3970 IF jul(x)=13 THEN LOCATE 34.zx 
:PRINT 'j( 'jpl$(x)j' , 
3980 IF ¡ulCx)=1 THEN LOCATE 34.zx: 
PRINT 'A 'jp!S(x)j' , 
3990 zx=zx+5:PEN O:NEXT 
4000 SOUND 2,300.100.15.1.0 
4010 RETURN 
4020 FOR x=1 TO 5: y=r 
4030 WHILE x(}y 
4040 IF ju2(xJ(ju2(y) THEN k=ju2(y) 
: ju2(y)=ju2(x): ju2(x)=k :k$=p2$(y):p 
2$(y)=p2$(x): p2$( x)=k$ 
4050 y=y+ 1 : WEND 
4060 NEn 
4070 zx=2:FOR x=1 TD 5:IF p2$(x)=CH 
R$(228) OR p2$(x)=CHR$(227J THEN LD 
CATE 2.zx:PEN 7:PRINT ju2(x)jp2$(x) 
ELSE lOCATE 2,zx:PEN O:PRINT ju2(x 
);p2$(x) 
40BO PEN o 
4090 IF p2$(x)=CHR$(228) THEN LDCAT 


60 AMSTRAD Semar¡,al 


E l.zx+2:PEN 7:PRINT CHR$(242):LOCA 
TE l,zx+3:PRINT CHR$(243) 
4100 IF p2$(x)=CHR$(229) THEN LDCAT 
E I,zx+2:PRINT CHR$(240):LDCATE I,z 
x+3:PRINT CHR$(241J 
4110 IF p2$(x)=CHR$(226) THEN LOCAr 
E l,zx+2:PRINT CHR$(246):LOCATE I,z 
x+3:PRINT CHR$(247J 
4120 IF p2$(x)=CHR$C227J THEN LDCAT 
E l.zx+2:PEN 7:PRINT CHRS(244):LDCA 
TE I,zx+3:PRINT CHR$(U5) 
4130 IF ju2(x)=1I THEN lDCATE '3.zx: 
PRINT 'J 'jp2$(x);' , 
4140 IF ju2(x)=12 THEN LOCATE 3.zx: 
PRINT 'Q 'jp2$(x)j' , 
4150 IF ju2(x)=13 THEN LOCA TE 3.zx: 
PRINT 'K 'jp2$(xli' , 
4160 IF ju2(x)=1 THEN lOCATE 3,zx:P 
RINT 'A 'jp2$(x)j' , 
4170 zx=zx+5:PEN O:NEXT 
4180 SOUNO 2,100,100.15.1,0 
4190 RETURN 
4200 RE" )})})})})}})}}})})}} GESTI 
ON DEL ERROR 'Ielory full' 
4210 IF ERR=7 THEN CLSlI :PRINTlI,'E 
STDY lIGERA
ENTE INDISPUESTD. ND VD 
Y EN ESTA PARTIDA. Si hay algo apos 
tado, es todo tuyo' ELSE CLS: PRI 
NT 'error nUlero'jERRj'en la linea' 
jERL:END 
4220PRINTII, 'error de 
E
ORY FULL. 
Espera un 10lenti to que se le han 
cruzado 105 cables. .' 
4230 OPENOUT 'pe las. 
4240 WRITE 19,dinl,din2,juegol,apl, 
ap2,apu,nolbreS 
4250 CLOSEOUT 
4260 CLEAR 
4270 CALL &88 1 B 
4280 DPENIN 'pelas 
4290 INPUT 19,dinl,din2,juegol.apl. 
ap2, apu. nOlbre$ 
4300 ClDSEIN 
4310 CALL &BBIB ' 
4320 IF juegol=1 THEN juegol=2 ELSE 
juegol=1 
4330 RE
 )})})}})})})}}}})})} DIBUJ 
D DE TAPETE 
4340 RE
 ON BREAK GOSUB 5000 
4350 RE
 
4360 PAPER 1: PEN O: CLS 
4370 IF dinl<=O THEN 
ODE O:ClS:LOC 
ATE 5,II:PRINT '"E PElASTE':LOCATE 
4,13:PRINT'FORASTERO! 1I':lOCATE 1,2 
O:END 
4380 IF din2(=0 THEN "DOE O:ClS:lOC 
ATE 4,II:PRINT 'TE DESPLU
E':LOCATE 
4.13:PRINT 'FORASTERO!' !':lOCATE 1 
,15:PRINT CHR$(229)j'hoja de parra 
para taparte... ':LOCATE 1.20:ENO 
4390 IF nivel02 AND dinl<15oo THEN 
nivel=2:switch=1 ElSE IF dinl>25oo 
ANO switch=1 THEN nivel=l:switch=O 
4400 WINDOWII.IO,30,3. 23:PAPERII. 3: 
PENII.4 
4410 FOR x=3 TO 23:LOCATE 9.x:PRINT 
CHR$(138):lOCATE 31.x:PRINT CHR$(I 
33):NEXT:FOR x=30 TD 10 STEP -I:LOC 
ATE x,2:PRINT CHR$(140):LOCATE x.U 
:PRINT CHRSCI3IJ:NEn:CLSII 
4420 FDR x=l' TD 23 STEP 5:lDCATE l. 
x:FOR y=1 TD 8:PRINT CHR$(131)j:NEX 
T:lOCATE 32,x:FOR y=32 TD 40:PRINT 
CHR$(131)j:NEXT:NEXT:FOR x=1 TO 25: 
LOCATE 8.x:PRINT CHR$Cl33):LOCATE 3 
2.x:PRINT CHR$(138):NEXT 
4430 LOCATEII, 17,20: PRINTII, 'CHIP': 
lOCATEII ,2,2: PRINTII ,UPPERS(nolbre$ 
) 
4440 LDCATEII.I7, 19:PENII, O:PRINTlI 
,CHR$(226); CliRS(229) j :PENII, 13:PRIN 
TII. CHRSC227J j CHR$ (228) 


4450 LOCATEII, 2. 3:PRINTlI. CHR$(228) 
j' 'jCHR$(227Jj' ';:PENII,O:PRINTII 
,CHR$(229);' 'jCHR$(226):zx=2 
4460 FOR x=33 TD, 39: FOR y=zx TD zx+ 
3:LDCATE x,y:PRINT CHR$(206):Nm:N 
m 
4470 zx=zx+5: IF zx=27 THEN 610 ELSE 
GOTD 4460 
4480 RE
 CA
BIO DE CARTAS POR ORDEN 
ADOR PARA USUAR ID 
4490 FDR xl=1 TD 5 
4S00 vblen2(xlJ=0: vblen2$(xl )=" 
4510 Nm 
4520 vec es=O 
4530 FOR xl=1 TD 5 
4540 yl=1 
4550 WHIlE xl (}yl 
4560 IF p2$(xl)=p2$(ylJ THEN veces= 
veces+ 1 
4570 yl=yl+1 
4580 WEND 
4590 NEXT 
4600 IF veces=IO THEN cartas=O:LOCA 
TEII, 2, 18:PRINTII'calbia : ':GDTO 
5170 
4610 IF veces06 THEN 4710 
4620 FOR xl=1 TD 5 
4630 FOR yl=xl+1 TD 5 
4640 IF p2$(xlJ(}p2$(ylJ THEN IF p2 
$(yll(}p2$(yl-1) AND p2$(yIJOp2$(y 
I+IJ THEN vblen2$(ylJ=p2$(ylJ:vblen 
2(ylJ=ju2(ylJ ELSE vblen2$(xlJ=p2$( 
xII :vblen2(xI )=ju2(xlJ 
4650 NEn 
4660 NEn 
4670 FOR xl=1 TD 5 
4680 IF vblen2(xlJ=0 THEN vblen2(xl 
)=fu2(xll :vblen2$(xl )=p2$(xll ElSE 
vblen2(xl )=0: vblen2$(xI )=" 
4690 NEn 
4700 GaTO 5090 
4710 RE
 muu CA"BIO DE CARTAS P 
OR OROENADDR CON 2 o 
AS CARTAS I SU 
ALES . PARA USU 
ARIO tmumumuuumuum 
mmmUtU 
4720 FOR xl=1 TO 5 
4730 vblen2(xll=0:vblen2$(xU=" 
4740 NEXT 
4750 veces=O 
4760 RE" UUt 2, - asigna las carta 
s que se queda a otras variables 
4170 FOR xl=1 TD 5 
4780 IF ju2(xlJ=ju2(xl+lJ THEN vble 
n2(xl)= ju2(xl): vblen2$(xl) =p2$( xl): 
v&len2( xl + 1 )=j u2( xl + 1): vblen2$( xl + 1 
)=p2$(xl +1) : veces=veces+ 1 
479.0 NEXT 
4800 IF vecesOO THEN GOTO S090 


481 O RE
 tmm CA
BID DE CARTAS P 
OR ORDENAODR YENDO A ESCALERA 
PARA !JSI) I 
ARIO UUUttttmttUtmmmu* 
UU 
4820 FOR xl =1 TD 5 
4B30 vblen2(xlJ=0:vblen2S(xl)=" 
4840 NEXT 
4850 vec es=O 
4860 RE" UU. 2. - asigna las carta 
s que se queda a otras variables 
4870 yl=1 
4880 FDR xl=! TD 5 
4890 vblen2(ylJ=0 
4900 IIHIlE M(yl+lJ-ju2(yU=1 ANO 
yl<5 
4910 vblen2(yl )=ju2(ylJ: vblen2$(yll 
=p2$(yU 
4920 vblen2(yl +1J=ju2(yl+l) :vblen2$ 
(yl+l )=p2$(yl+lJ 
4930 yl=yl+l 
4940 WEND 
4950 yl=yl+l 
4960 Nm 
4970 IF ju2(S)-ju2(1J=12 THEN vblen 
2( U=ju2( 1): vblen2$( U=p2$( U: vblen 
2( 5)=ju2( 5): vblen2$(5) =p2$(5): veces 
=veces+1 
4980 
E" UtU 3. - asigna O a las ( 
artas que no se queda 
4990 xl=5 
5000 WHIlE x 1>0 
SOlO IF vblen2(x1J(}0 ANO vblen2(xl 
-I)(}O ANO vblen2(xU-vblen2(xl-IH 
>1 THEN vblen2(xH)=0 
5020 xl=xl-l 
5030 WEND 
5040 FDR xl =5 TO 1 STEP -1 
SOSO IF vblen2(xllOO THEN veces=ve 
ces+1 
5060 IF vblen2(xU=0 ANO vecesOO T 
HEN FOR yl=xl TO [ STEP -1:vblen2(y 
I)=O:x=O:NEXT 
5070 NEn 
5080 IF ju2(5)-ju2(1J=!2 THEN vblen 
2( 1 )=ju2(!): vblen2$( lJ=p2$( U: vblen 
2(S)=ju2(S): vblen2$(S)=p2$(S) :veces 
=veces+ 1 
5090 RE" "UESTRA QUE CARTAS CMB 1 AR 
5100 LOCATEII,8.S:PRINTlI, 'AYUDA' 
5110 cartas=O 
5120 FOR xl=1 TD S 
5130 IF vblen2CxIJ=0 THEN lOCATEII. 
S;'I+S:PRINTII,'mbli la'¡xl 
5140 NEn 
5150 CALl &8B¡g 
5160 FCR c=1 TO 6:LDCATEI1,I.c+4: P R 
INTII,' ':NEn 
5170 RETURN 
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E l Abstrae es un juego de cartas para dos 
jugadores. Se juega con 24 cartas de póker (A, 
K, Q, J, 10 Y 9 de cada palo). Las cartas, una 
vez barajadas, se ponen en hilera boca arriba 
y de modo que se vea cuál es cuál. Cada jugador 
toma en su turno una, dos, o tres cartas a partir de 
la que está totalmente descubierta. El objetivo es 
formar combinaciones con las cartas recogidas 
(conjuntos y escaleras). Tanto la descripción del 
juego como la forma de puntuar se explican 
detalladamente en las instrucciones de la aplicación. 
El programa comienza con la presentación del 
título (Abstrae) y el primer menú (instrucciones o 
juego). 
En la opción de instrucciones se describen en 
pantallas sucesivas las reglas del juego. Al final de 
ellas se llega a la opción de juego. En ésta aparece 
en primer lugar el menú de selección del número de 
jugadores humanos: en el caso de ser uno, juega 
contra el ordenador y en el caso de ser dos, juegan 
entre ellos sirviendo el ordenador como tablero y 
puntuación. 
Sea cual sea el número de jugadores, el ordenador 
pregunta el nombre de éstos, hecho lo cual presenta 
la pantalla de juego. 
En la parte superior aparece el nombre de cada 
jugador, junto a la tabla de puntuación y de cartas 
que posee, y en la parte inferior se muestran las 
cartas. Cuando termina la partida se dedica esta 
parte de la pantalla a la presentación del menú final, 
en el cual se da la opción de seguir jugando los 
mismos jugadores (con o sin acumulación de 
puntos), otros jugadores o finalizar. 
Este programa proporciona durante su ejecución 
toda la información necesaria para el jugador, tanto 
de reglas del juego como de utilización del 
programa. 
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lO RE" _____m_________m__. ABST 
RAC -------------------------.:-- 
20 RE" ---------------------------- 


30 RE" ---prograaa basado en un jue 
go de cartas de David Par lett--- 
40 RE" ---------------------------- 


50 RANDO"IZE TI"E 
60 "OOE 2:tinta=I:GOSUB 3100 
70 60SUB 3830:RE" Eleccion del nUle 
ro de jugadores y el uno 
80 ' 
90 WHILE opcion (= 2:RE" Prograaa p 
rincipa! 
100 DI" nUlero$(6), cartas(30,2) ,!en 
elos(4,6) ,peso(4,6), veo(5, 2), guarda 
(6), recu(2), puntosc(6,2), puntose( 
4,2) 
110 prllera = O 
120 RE" Pantalla de espera 
130 "OOE O: INK 1. 3: INK 2,18: BOROER 
18 
140 PEN I:PAPER 2:CLS 
ISO LOCA TE 5.13:PRINT"Barajando . 


510 LOCATE 15,17:PRINT" Juega 'j: IF 
turno = 1 THEN PRINT UPPER$(jgl$) E 
LSE PR I NT UPPER$ ( j g2$) 
520 GOSUB lUJO 
530 LOCA TE 1,17:PRINT CHR$(18):PRIN 
T CHR$(l8) 
540 turno = turno i turno2 
550 WEND 
560 RE" Jugador contra ordenador 
570 WHILE juegan = 1 ANO naipe ( 25 
580 IF turno = -1 THEN 60SUB 1110 E 
LSE 60SU8 1180 
590 turno = turno i turn02 
600 WEND 
610 60SUB 2260:RE" Puntuacion final 
620 60SUB mO:RE" Fin de partida 


630 RE" Analiza la opcion final 
640 ON opc ion 60SUB 4240, 4220 
650 WENO:RE" Fin del programa princ 
ipal (While en la linea 90) 
660 IF opcion = 3 THEN RUN:RE" Elpe 
zar de nuevo 
670 CLS 
6BO ENO 
690 ' 
700 RE" hace una valoracion de las 
cartas segun wales sean y segun es 
ten colocadas 
710 RE" Prilero da peso a las carta 
s 'en piraaide': de layor a lenor, 
N, K-lO, Y A-9 
720 FOR valor = 1 TO 6 
730 REAO pesoU,valor):peso(2,valor 
)=peso( 1, valor) :peso(3, valor )=peso( 
1, valor): peso(4, valor )=peso( 1, valor 
) 
140 NEXT valor 
750 RE" Averigua la posicion de las 
cartas del mislo nUlero 
760 FOR valor = 1 TO 6 
770 q=l: np=O 
780 FOR k= 1 TO 24 
790 IF cartas(k,2)=valor THEN guard 
a(q)=valor:q=q+1 
BOO NEn k 
810 RE" "ira si puede tomar cuatro 
iguales o es ilposible 
820 FOR k=1 TO 3 
830 IF guarda(k)=(guarda(k+I}-2) TH 
EN np=1 ......... 
840 NEn k 
850 FOR k=1 TO 2 
860 IF (guarda(k)=(guarda(k+2J-5) O 
R guarda(k )=(guarda(k+2H)) ANO NO 
T (guarda(k)=(guarda(k+2H)) THEN 
np=1 
870 NEn k 
880 FOR k=1 ro 3 
890 lF (guarda(k )=guarda(k+1)-1) AN 
O np=O THEN aUlento=2: 60SUB 1470: RE 
" aumen ta r peso 
900 NEn k 
910 RE" Sube el peso de aquellas de 
las que es posible tomar las cuatr 
o 
920 I F np=O THEN aumento = 4: 60SUB 
1470: RE" aUlentar peso 
930 NEn valor 
940 FOR palo=1 ro 4 
950 q= 1 : np=O 
960 RE" Averigua la posicion de las 
cartas del lisIO palo 
970 FOR j=1 TO 24 
980 IF cartas(j,iJ=palo THEN guarda 
(q)=palo: q=q+1 
990 NEn j 


1000 RE" sube e 1 peso de aque 11 as c 
on las que es posible forlar escale 
ra 
1010 FOR j=1 TO 5 
1020 IF guarda(j)=(guarda(j+I)-2) T 
HEN np=1 
1030 NEn j 
1040 FOR j=1 TO 4 
1050 IF guardar j )=(guarda(j+2H) O 
R guarda( j )=(guarda(j+2H) THEN np 
=1 
1060 NEn J 
1070 IF np=O THEN 60SUB 1660:RE" au 
lentar peso por escalera 
lOBO NEn palo 
1090 RETURN 
1100 ' 
1110 RE" coge cartas el ordenador 
1120 LOCATE 1.17: PRINT CHR$<1B): PRI 
NT CHR$(8):LOCATE 15,17:PRINT'"111 
Ih l ,":FOO retar = 1 TO 1000:NEXT 


1130 recojo=I:60SUB 1880:60SUB 1260 
: RE" peso 
1140 60SUB 1720:LOCATE 15,17:PRINT" 
he cogido "¡recojo+I¡" cartas" 
1150 GOSUB 1880:RE" Coger las carta 
sono \') 
1160 RETURN 
1170 ' 
1180 RE" coge cartas el Jugador 
1190 LOCATE 15,IB:PRINT "cuantas ca 
rtas quieres? "¡ 
1200 IF naipe = 1 ANO prilera = O T 
HEN lenor = O:prilera = 1 ELSE leno 
r = 1 
1210 IF naipe ( 22 THEN mayor = 3 E 
LSE mayor = 25 - naipe 
1220 60SUB 4280:recojo = a:PRlNT re 
cojo 
1230 60SUB 1880:REM Coge las cartas 
que ha ped i do 
1240 RETURN 
1250 ' 
1260 RE" da peso a las cartas que p 
ueden hacer cOlbinac iones 
1270 60SUB 1310:RE" 4 iguales 
1280 GOSUB 1530:RE" escalera 
1290 RETURN 
1300 ' 
1310 RE" 4 Iguales 
1320 FOR valor = 1 TO 6 
1330 p=O:t=O:REM Contadores de cart 
as iguales de cada jugador 
1340 FOR palo = 1 TO 4 
1350 IF tenelos(palo, valor)=1 THEN 
p=p+1 
1360 IF teneaos(palo,valor)=-I THEN 
t=t+ 1 ) 
1370 NEn palo 
1380 lF p}=1 ANO t=O THEN aUlento = 
2:60SUB 1470:RE" aUlentar peso 
1390 lF p}=2 ANO t=O THEN aUlento = 
4: GOSUB 1470: RE" aUleniar peso 
1400 IF p=3 ANO t=O THEN aUlento = 
12: 60SUB 1470: RE" aUlentar peso 
, 
1410 IF t>=1 ANO p=O THEN aUlento = 
2:60SUB 1470: REM aumentar peso 
1420 IF t>=2 ANO p=O THEN aUlento = 
4:60SUB 1470:RE" aUlentar peso 
1430 IF t=3 AND p=O THEN aUlento ¡ 
12: 60SUB 1470: RE" aUlentar peso 
1440 NEn valor 
USO RETURN 
1460 ' 
1470 REM aUlentar peso por cuatro i 
, 


guales 
1480 FOR pl = 1 TO 4 
1490 IF tenelos(pl, valor )=0 THEN pe 
so(pl, valor )=peso(pl, valor )+aulentli 


tUl 
R . 
1.
 
nUI 
19' 
201 
20 
20 
20 
LS i 
20 
,2 
0$ 
20 
60 
20 
20 
20 
:6 
2C 
21 
21 
21 
21 
21 
21 
o 
21 
rl 
21 
21 
al 
(¡ 
21 
r. 
o 
2: 
rl 
2: 
2: 
al 
(t 
2, 
2, 
2, 
iI 
2, 
2, 
22 
23 
N 
23 
23 
ar 
23 


160 REM lnitializa valores de tarta 
s para Ilpresion 
170 RESroRE 4480 
IBO FOR silbolo = 1 TO 6 
190 REAO nUlero$(silbolo) 
200 NEn sllbolo 
210 RE" tolota de forla aleatoria 1 
as tartas 
220 FOR palo = 1 TO 4 
230 FOR valor = 1 TO 6 
240 busto = O 
250 WHILE busto = O 
260 lugar = INHRNOi23+1.S) 
270 IF tartas<lugar ,1)=0 THEN carta 
s( lugar ,1 )=palo: tartas( lugar, 2)=val 
or:busto=1 
280 WENO 
290 NEn valor:NEXT palo 
300 IF juegan=1 THEN 60SUB 700:RE" 
si un jugador, pesa las tartas 
310 REM pantaUa de juego- 
320 INK 0,0: INK 1.26:BOROER O:MOOE 
2 
330 CLS:WINOOW '0,1.80, 1. 25: WINOOW' 
1,33,45,3,3: PENI1, O: PAPERII.I 
n 340 RE" ilprile las cartas 
350 GOSUB 2640 
360 "OYE 5,16: tursor=-I 

 370 FOR naipe=24 ro 1 STEP -1 
3BO tinta = 1: cursor = cursor +3:60 
. 
 SUB 3000:60SUB 2920:RE" pinta cada 
, carta(parte izquierda) 
390 NEn naipe 
 
,¡( 400 naipe=I:60SUB 2960:cursor = cur 
sor + 3:GOSUB 3050:RE" pinta la par 
ti dcha, de la prllera 
arta 
410 RE" Ilpr ile los nOlbres de los 
jugadores 
420 LOCATE ((25-LEN!jglS))/2)+5,6:P 
RINT UPPER$(jgl$}j 
430 LOCATE (25-LEN(jg2$)) 12)+44,6: 
PR 1 NT UPPER$ ( j g2$) j 
440 REM cOlienza a jugar 
450 naipe=I:REM micializa contador 
de cartas toudas 
460 RE" COlienzo real del juego 
470 turn02 = -1 
480 IF mano = 1 THEN turno = 1 ELSE 
turno = -1 
490 RE" Dos jugadores 
500 WHILE juegan = 2 ANO naipe ( 25 


1500 NEXT pl 
1510 RETURN 
1520 ' 
1530 RE" escalera 
1540 FOR palo = 1 TO 4 
1550 p=O: t=O 
1560 FOR valor = 1 TO 6 
1570 IF tenelos(palo, valor )=1 THEN 
P = P + 1 
1580 IF teneaos(palo,valor)=-I THEN 
t = t + 1 
1590 NEn valor 
1600 IF p}=2 ANO t=O THEN GOSUB 166 
O: RE" aUlen ta r peso 
1610 IF t}=2 ANO p=O THEN GOSUB 16 
60: RE" aUlentar peso 
1620 IF D=4 ANO p=O THEN GOSUB 16 
60: REM aUlentar peso 
1630 NEn palo 
1640 RETURN 
1650 ' 
1660 REM aUlentar peso por escalera 
1670 FOR nuaero=1 TO 6 
1680 IF tenelos(palo,nulero)=O THEN 
peso( palo, nUlero) =peso(palo, nUlero 
)+2 
1690 NEXT nUlero 
1700 RETURN 
1710 ' 
1720 RE" deCIde cuantas escoge el o 
rdenador 
1730 FOR k=O TO 5 
1740 FOR j=1 TO 2 
1750 veo(k,j)=cartas(naipetk,j) 
1760 NEn j:NEXT k 
1770 RE" AnaIisis de la jugada 
1780 pesos=peso( veo(O,1), veo(O, 2))+ 
peso(veo( 1.1), veo( 1, 2) )+peso(veo(5, 
l),veo(S,2)) 
1790 pesox=peso( veo(3,I), veo(3, 2))+ 
peso(veo(4, 1) , veo(4, 2) 
1800 pesos2=peso(veo(O,I), veo(O, 2)) 
+peso( veo(4,I), veo( 4, 2)) 
1810 pesox2=peso(veo( 1.1), veo(l, 2)) 
+peso(veo(3 ,1), veo(3, 2) 
1820 pesosl=peso( veo(3,I), veo(3, 2)) 
1830 pesoxl=peso(veo(O, 1), veo(O, 2)) 
+peso( veo( 1,1), veo( 1,2)) 
1840 IF pesos-pesox}=pesosl-pesoxl 
ANO pesos-pesox}=pesos2-pesox2 THEN 
recojo=2 ELSE IF pesos2-pesox2}=pe 
sosl-pesoxl THEN recojo=1 ELSE reco 
jo=O:RE" coger 3 o 2 o 1 cartas 
IB50 IF (naipe + recojo) } 25 THEN 
recojo = 25 - naipe 
1860 RETURN 
1870 ' 
1880 RE" coger cartas 
IB90 WHILE recojo }= 1 
1900 palo=nrtas(naipe,1) 
1910 valor=cartas(naipe,2) 
1920 teneaos(palo, valor )=turno 
1930 60Sue 2020:RE" Visualiza en el 
larcador la carta cogida y la borr 
a de la lesa 
1940 GOSUB 2370:RE" Actualiza el la 
rcador de puntuacion 
1950 IF juegan = 1 THEN GOSUB 2130 
1960 naipe=naipe + 1 
1970 recojo = retojo - 1 
1980 IF naipe ( 25 THEN 60SUB 2960: 
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2680 NEn j 
2690 lOCATE 4, 13:PRI!+f'Ptos. ':LOCAT 
E 41, 13:PRINT'Ptos, ' 
2700 IIOYE 22B,158:0RAWR 56,0,I:ORAW 
R 0,20,1:0RAWR -56,0,1:0RAWR 0,-20, 
1 
2710 1I0VE 532, 158:0RAWR 56,0,I:ORAW 
R 0,20,1:0RAWR -56,0,1:0RAWR 0,-20, 
1 
2720 LOCATE 12,15:PRINT'RESVlTAOO: 
2340 lOCATE 23,15:PRINT recu(2Hnul 'jO:LOCATE 49,15:PRINT'RESVlTAOO: . 
cart:lOCATE 31,15:PRINT VSIN6 ..... ¡O:lOCATE 31,l5:PRINT VSIN6 '.m.' 
"itotaI2:l0CATE 60,15:PRINT recu(O jtotaI2:LOCATE 69,15:PRINT VSIN6 .. 
)i124-nulcartJ:lOCATE 69, 15:PRINT V .....jtotaIO 
SIN6 ......'itotaIO '2730 1I0VE 30U52:0RAWR O, m,1:1I0V 
2350 RETVRN E 36,220: ORAWR 212, O, 1: ORAWR 0,72, 1 
2360 :1I0VE 332,220:0RAWR 220,D,I:0RAWR O 
2370 REII actualiza la puntuacion pa ,72,1 
rcial 2740 1I0VE 256,190:0RAWR 28,0,1:0RAW 
2380 conj = O R 0,20,I:ORAWR -2B,0,1:0RAWR 0,-20, 
2390 FOR palos = 1 TO 4 I 
2400 IF teneloslpalos,valor)=turno 2750 1I0VE 560,190:0RAWR 28,0,1:0RAW 
THEN conj = conj + 1 R 0,20,1:0RAWR -28,0,1:0RAWR 0,-20, 
2410 NEn 1 
2420 IF conj = 4 THEN puntosclvalor 2760 CLS I1:PRINTIl,' ABSTRAC' 
,turno+1) = 8:reculturno t 1) = rec 2770 FOR origen = 10 TO 47 STEP 37 
u( turno + 1) + 6 2780 FOR Ii nea = 8 TO 11 
2430 IF conj = 3 THEN puntosclvalor 2790 FOR posicion = O TO 20 STEP 4 
,turno+1) = 2:reculturno + 1) = rec 2800 lOCATE origen+posicion,linea:P 
u(turno + 1) + 2 RINT'-'¡ 
2440 esc = O 2810 NEn:NEn:NEU:REII pinta los h 


,N pe 
lento 
I 
HEN 
THEN 
I 166 , 
lB 16 
lB 16 
--- 


cursor = cursor + 3:60SVB 3050:PlOT 
R -1, O: llOVER 0,-75:PLOTR 0,0:1I0VER 
1,75:REII Pinta parte derecha de la 
nueva carta 
1990 WENO 
2000 RETURN 
2010 ' 
2020 REII Visual iza y borra 
2030 IF turno = 1 THEN posicx = 5 E 
lSE posi cx = 42 
2040 LOCATE posicx + 4*cartaslnaipe 
,2) ,7 + cartas(naipe, 1) :PRINT nUler 
oS(cartas(naipe, 2)) 
2050 I10VER O, -75: tinta = 0:60SUB 29 
60 
2060 llOVER -24,-75:60SUB 2920 
2070 PEN O 
2080 60SUB 3050: cursor = cursor - 3 
:GOSUB 3000:cursor = cursor - 3 
2090 tinta = I:PEN 1 
2100 llOVER -24,0 
2110 RETURN 
2120 . 
2130 REII pesa escaleras 
2140 aa = O: salgo = O 
2150 WHILE valor - aa () 1 ANO salg 
o = O 
2160 IF teneloslpalo, valor-I-aa)=tu 
rno THEN aa=aa+ 1 ElSE salgo = 1 
2170 WENO 
2180 IF salgo <> O THEN peso(palo, v 
alor-I-aa) 'peso( palo, valor-I-aa) +2* 
(aa+1) 
2190 bb'O:salgo · O 
2200 WHIlE valor + bb () 6 ANO salg 
O' O 
2210 IF teneloslpalo, valor+ I+bb)=tu 
rno THEN bb=bb+l ElSE salgo' 1 
2220 WENO 
2230 IF salgo <> O THEN peso(palo, y 
alor+l+bb)'pesolpalo, valor+l +bb)+2* 
Ibb+1) 
2240 RETURN 
2250 ' 
2260 REII calcula puntuacion deflnIt 
iya 
2270 nulcart . O 
2280 FOR nUlero=1 TO 6 
2290 FOR palo=1 TO 4 
2300 IF tenelos(palo,nulero)=-I THE 
N nUlcad = nUlcart + 1 
2310 NEn:NEn 
2320 totaIO=totaIO t recuIO)i(24-nulc 
artl 
2330 totaI2=totaI2+recu(2)*nulcart 
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2450 FOR nUI = 1 TO 6 
2460 IF tenelos(palo, nUI) = turno T 
HEN esc = esc + 1 ELSE 60SUB 2560: R 
EII Puntua escalera 
2470 NEn 
2480 60SUB 2560 
2490 REII I Ipr i le los nuevos resulta 
dos 
2500 IF turno = -1 THEN orig = 42:0 
rigl = 72 ElSE orig = 5:origl = 34 
2510 LOCATE orig + 4*yalor,13:PRINT 
puntosc (yalor, turno + 1) 
2520 lOCATE origl, 7 + palo:PRINT US 
ING .... ipuntose(palo, turno + 1) 
2530 LOCATE origl, 13:PRINT USING '. 
"; recu( turno + 1); 
2540 RETURN 
2550 
2560 REII Puntua escaleras 
2570 IF esc = 6 THEN reculturno + 1 
) = reculturno + 1) + 12 - puntosel 
palo, turno + I):puntoselpalo,turno 
+ 1) = 12 
2580 IF esc = 5 THEN recu( turno + 1 
) = reculturno tI) + 6 - puntose 
(palo, turno + 1) :puntoselpalo, turn 
0+1)=6 
2590 IF esc = 4 THEN recu( turno + 1 
) = reculturno + 1) + 4 - puntoselp 
al o, turno + 1) :puntose(palo, turno 
tl)=4 
2600 IF esc = 3 THEN recul turno t 1 
) = reculturno + 1) + 3 - puntoselp 
alo, turno + 1):puntoselpalo,turno 
+1)=3 
2610 esc = O 
2620 RETURN 
2630 ' 
2640 REII Pinta el recuadro de i nfor 
ucion 
2650 LOCATE 33,6:PRINT'Ptos, ':LOCAT 
E 71,6:PRINT'Ptos,' 
2660 FOR j =0 TO 3 
2670 LOCATE 6,8+j:PRINT CHRS(226+j) 
:LOCATE 43,8+j:PRINT CHRSI226+j) 



 
uecos la 24 cartas apar
 una sobre o 
2820 FOR lineas = 8 TO 11 tra en una hilera,' ............... 
2830 lOCATE 34,lineas:PRINT Oj 3-320 PRINT'de lodo que puedes ver t 
2840 lOCATE 72. lineas:PRINT Oj odas las cartas.' 
2850 NEn 3330 PRINT' Cada jugador, en su 
2860 FOR colulnas = 9 TD 29 STEP 4 turno, tOla una, dos o tres cartas 
2870 lOCATE colulnas,13:PRINT O¡:lO seguidas a partir' 
CATE colulnas + 37, 13:PRINT Oi 3340 PRINT'de la que esta totallent 
2880 NEXT e descubiertaj en la prilera jugada 
2890 lOCATE 34,13:PRINT VSIN6 ....¡ de la partida el' 
O¡:lOCATE 72,13:PRINT VSI ¡ N6....¡0¡ 3350 PRINT'jugador 'uno' puede 'pa 
sar', sin coger cartas Se sigue ju 
2900 RETURN gando alternati va-. .. -. 
2910 . 3360 PRINT'lente hasta que no quede 
2920 REII Pinta o borra lado izquier n cartas' 
do de una carta 3370 GOSUB 3780:REII para continuar 
2930 ORAWR -5,5,tinta:ORAWR 0,65,ti 33BO PRINT:PRlNT:PRINT 
1 
'\ 
nta:ORAWR 5,5, tinta:ORAWR 24,0, tint 3390 PRINT' El 08JETlVO es tOla 
a:1I0VER -24,-75:0RAWR 24,0, tinta r cartas que forlen COIIBINACIONES P 
2940 RETURN UNTUABLES:' 
2950 ' 3400 PR INT 
2960 REII Pinta o borra lado derecho 3410 PRINT' ESCALERAS: O '\... .. 
de la carta descubierta E TRES O /lAS CARTAS SE6UIDAS DE Ut!. 
 
2970 ORAWR 17,0, tinta:ORAWR 5,5, tin PALO' 
ta:ORAWR 0,65, tinta:ORAWR -5,5, tint 3420 PRINT' CONJUNTOS: O 
a:ORAWR -17,0, tinta 
 
 TRES O IIAS CARTAS DEL IIISIIO VALOR 'f: 
2980 

TURN ,3430 60SUB 3780: REII para continuar 
2990, J 3440 PRINT 
3000 REII PlOta, o borra palo y nUler 3450 PRINT' La PUNTUACION de ca 
o de la parte Izq. da cOlbinac Ion es:' 
3010 LOCATE cursor-1,21:PRINT num 3460 PRINT '""- 
oSlcartaslna¡pe,2)) 3470 PRINT' .... ESCALERA: de I 
3020 LOCAJE cursor,23:PRINT CHRS(ca SEIS cartas 12 puntos' ""'--- I 
rtas(naipe,1) + 225) 3480 PRINT' , de 
 ! 
3030 
ETUR
 CINCO cartas _. 6 puntos' 
! 
3040 3490 PRINT' J de 
3050 REII Pinta o borra palo y nUler' , . 
o de la carh descubierta Iparte dc 3


T

I


tas, 4 puntos de 
ha.) \ .' TRES cartas, 3 puntos' 
3060 lOCATE cursor, 21.PRINT CHRSI ca 510 PRINT 
rtas(naipe,1) + 2251, ;520 PRINT' 
3070 lOCATE cursor - 1,23.PRINT nUI CUATRO cartas, 
eroSlcartas(na1pe,2)) 3530 PRINT' 
3080 RETURN TRES cartas, 
3090 . 3540 PRI NT 
3100 REII plOta tulo 3550 PRINT' La lisia carta pued 
3110 BOROER O . e puntuar en dos cOlbinaciones . 
3120 WINOOW 10,1, O, 12,25,WINOOW J!J- 3560 GOSUB 37BO:REII para continuar , 
,I,BO,l,l1 '\ 
 3570 PRINT:PRINT:PRINT:PRINT:PRINT: : 
3130 INK 0,0: r
1,26:PAPER O:PEN 1 PRINT ot. .. 
:PAPER'I,O:PEN'I,I:CLS:ClS'1 3580 PRINT' Para obtener la pun 
3140 FOR lineas = 1 TO 10 tuacion final se lultiplican los pu 
3150 PRINTIl:PRINTIl,SPCIlI) ntos obtenIdos en . 
3160 FOR colulnas = 1 TO 55 3590 PRINT' las cOlbinaciones por el 
3170 REAO caracter:PRINTtl,CHRS(car nUlero de cartas que ha cogido el 
acter)¡ '\. adversario,' 
31BO NEU colulnas:NEU lineas \. 3600 60SUB 37BO:REII para continuar 
3190 RE" lenu 3610 PRINT' E¡elplo: . 
3200 LOCATE 31,5:PRINT' I ..Instruc 3620 PRINT:PRINT CHRS(22)jCHRSWj: 
ciones' REII 1I0do transparente 
3210 lOCATE 31.9:PRINT' J...Juego' 3630 1I0VE 304,20:0RAWR 0,190,1:1I0VE 
36,92:0RAWR 212,0,1:0RAWR 0,68,1:11 
OVE 332,92: ORAWR 220, O, 1: ORAWR 0,68 
,1 '- 
3640 PRINT SPC(33)'Ptos, 'jSPC(32)'P 
tos' '\. 
3650 PRINT '\. 
3660 PRINT SPC(5)CHRS(226Ij' A 
K Q 3 'jCHRS 
(226);' J 10 9 
3' 
3670 PRINT SPC!S)CHRSI227);' A 
- - J - O 'jCHRS 
(227);' - K Q - 10 9 
O' 
3680 PRINT SPC(5)CHRSI228);' A 
Oespues de barajar, I K O 'jCHRS 


-........... 


.......... ' 
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CONJUNTO: de 
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.,; 


3220 lenor = 25: .ayor = 26: GOSUB 42 
80 
3230 IF aS=' l' THEN 60SUB 3260 
3240 RETURN 
3250 ' 
3260 REII escribe instrucciones 
3270 ClS 
3280 PRINT:PRINT 
3290 PRINT' El Abstrac es un ju 
ego de cartas para dos jugadores cr 
eado por Oav id Par-' 
3300 PRINT'lett. Se Juega con 24 ca 
rtas de poker: A, K, Q, J, 10 Y 9 d 
e cada palo.' 
3310 PRINT' 
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(228);' Q J 10 3960 LOCATE 27,9:PRINT' 2 - EL ORDE 
(" NADDR ES "ANO" 
3690 PRINT SPC(S)CHRS(229)¡' A 3970 lenor = 1:layor = 2:6DSUB (2aO 
J 10 9 3 "¡CHRS :Iano = a 
(229)¡' K Q 39aO CLS 
O" 3990 LDCATE 15.7: PRINT" CD"O T 
3700 PRINT E LLA"AS? 'j :60SUB (020: jgl 
3710 PRINT SPC(5)' a O O O S = nOlbreS:jg2S = "ORDENADOR' 
O O Ptos. O O 2 4000 RETURN 
O 2 2 Ptos, " (010 . 
3720 PRINT (020 RE" Recoj e nOlbre 
3730 PRINT' TOTAL: (a+3+3)PUNTDS* (030 LDCATE 2S,I4:PRINT""AXI"D: 10 
13CARTAS=la2 TOTAL: (2+2+2U+3)PUN ' CARACTERES Y <ENTER)"; :LDCATE (5,7 
TOS*II CARTAS=U3' 
37(0 PRINT 
3750 PRINT CHRS(22)¡CHRS(0)¡:RE" De 
sactiva lodo transparente 
3760 6DSUB 37BO:RE" para contil\llar 
3770 RETURN 
37BO LDCATE 2S,I(:PRINT'PULSA UNA T 
ECLA PARA CONTINUAR" 
3790 WH!LE I NKm = ": WEND 
3aOO CLS 
'qlO RETURN 
- 'O' 

 r _ I . RE" Selecciona el nUlero de ju 
'--' Ido res y el lano 
10 CLS 
.... ;0 LDCATE 27,7:PRINT"CUANTOS JU6A 
ES? (! o 2)" 
) lenor = 1: layor = 2: 6DSUB (280 
gan = a 
IF iuegan = 1 THEN 6DSUB 3930: 
N 
:LS 
..v lano = I:LDCATE 15,7:PRINT"ND" 
BRE DEL JU6ADDR 1 ("ANo)? "j : 6DSUB 
4020: j g IS = nOlbr eS: CLS 
3900 LDCATE 15,7:PRINT"NO"BRE DEL J 
U6ADDR 2? '; : 60SUB (020: j g2 
S = nOlbreS 
3910 RETURN 
3920 ' 
3930 RE" Un jugador 
3910 CLS 
3950 LOCATE 27, 5:PRINT' 1 - TU ERES 
"ANO" 


- 
- 
,,- 
- 


. 
serIe oro 



 
.. 


1010 aS = ": nOlbreS = "' 
(OSO WHILE aS = "':aS = INKm:WEND 
1060 WHILE ASC(aS) () 13 
4070 IF ASC(aS) = 127 THEN IF nOlbr 
eS <> "' THEN PRINT CHRS(a) JCHRS(!6 
) ¡ :nolbreS = LEFTS(nolbreS, LEN(nolb 
reS) - 1) ELSE PRINT CHRS(7) j ELSE 
PRINT aS; :nolbreS = nOlbreS + aS 
40BO IF LEN(nolbreS) } 10 THEN nOlb 
reS = "':LDCATE 15,7:PRINT CHRSOa) 
jCHRS(7); 
(090 aS = "':WHILE aS = "':aS = INK 
m:WEND 
4100 WEND 
UI O RETURN 
1120 . 


mo RE" Fin de la partida 
mo LOCATE 1,17:PRINT CHRS(la):PRI 
NT CHRS( lB) 
1150 LDCATE S,20:PRINT"I. Nueva 
partida entre los .islos iugadores 
(acululando los puntos)" 
4160 PRINT SPCW"2 Nueva parti 
da entre los lislos jugadores (sin 
aculular puntos)" 
mo PRINT SPCW"3 .., Nueva parb 
da entre dos nuevos jugadores" 
1180 PRINT SPCW"I ,.. Fin" 
U90 lenor = I:.ayor = 4:6DSUB (280 
:opcion = a 
1200 RETURN 
1210 ' 


4220 RE" Conti nuan jugando los IISI 
os 
1230 totalO = O: total2 = O 
4210 ERASE nUleroS, cartas. tene.os 
, peso, veo, guarda. recu. puntosc, 
puntose' 
4250 IF lano = 1 THEN uno = 2 ELSE 
.ano =1 
1260 RETURN 
mo' 
(2aO RE" Lectura del teclado 
(290 RE" Devuelve letra layuscula ( 
aS) o nUlero (a) para los lenus 
(300 WHILE INKEYs<>"':WEND:RE" lilp 
ia el buffer de teclado 
1310 aS = "' 
1320 WHI LE aS = "' 
1330 aS = UPPERS(JNKm): IF aS <> " 
" THEN IF ASC(aSHa < .enor DR A5C 
(aS Ha ) layor THEN aS = ":PRINT 
CHRSm; ELSE a = ASC(aS) - la 
1310 llENO 
1350 RETURN 
1360 ' 
1370 RE" Caracteres para el nOlbre 
del juego (ABSTRAC) 
1380 DATA 32,214, U3, 113. 113,215,32 
,32,113. U3.143. U3, 113, U3.215,32. 
211,113. U3, 113.113, 113,215,32, 113, 
U3, 113.113, 113, 113, 113,32, 113. 113, 
143,143, U3, U3.215,32,32.2I4,1I3,1 
43, U3.215,32.32,2I1, U3, 113, U3, 11 
3,143,215 
4390 DATA 211.143.113.143,113,143,2 
15,32,143,113.113.143',143.143,143,3 
2,113,143.143.113, U3, 113. 143,32.14 
3,113.113.113,113.113,143.32,113,11 
3,113,143,143.143,143,32.211,113,11 
3,113, U3, 143,215.32, 143. 143, 143,14 
3,U3.143.U3 
UOO DATA U3.U3,212.32.213.1I3,U 
3.32, U3, 113.32,32.32. U3, U3,32, 11 
3, U3.32, 32,32. 113, 113.32.32.32, 113 
,113.113,32.32.32,113.113.32.32,32, 
143.113,32.143,143.212.32.213.113,1 
13.32.143.113,32.32,32,213.143 


4410 DATA 143,143,32,32.32,143,U3, I 
32.113,113.32,32.211,143,113,32, U3 
.143,32,32,32,32.32.32,32,32,113,14 
3.113,32,32,32.113, U3,32,32.211,14 
3. U3,32. 113, 113,32.32,32, 113, 1(3,3 
2.113,113,32,32,32,32.32 
U20 DATA 143,143,113,143.113.113,1 
43,32,113,143,113,143,143.143,212,3 
2,143,113,113,143.113,113,215,32.32 
.32.143,113.113,32.32,32,113.143.14 
3,143,113,143,212,32.113,113,113,14 
3.113,113,113,32.113.143.32.32,32,3 
2.32 
1130 DATA 113,113,143,113,113,143.1 
13,32, U3, 113, 113,143,1(3, 143,215,3 
2,213,143,113,113,113,113,113,32.32 
,32.113,143,113,32.32,32,143.113.14 
3,113, 143, 113,215,32, 143. 1I3,1I3,1( 
3,113,113,113.32,113,113,32,32,32,3 
2,32 
1440 DATA 113,113,32,32,32,143,113, 
32.143,113.32,32,213.113.113.32,32, 
32.32.32,32.113.113,32.32.32,113,11 
3,113.32,32,32,113,113,32,32,213.14 
3,113,32.113,113.32,32,32,113,113.3 
2,113,113.32.32,32.32.32 
USO DATA 113.113,32,32.32,113,113, 
32,113,113,32.32,32.113.113,32.143. 
143.32,32.32.113.113,32.32.32.113.1 
43.113.32.32.32.113,113,32.32,32.11 
3.113.32.143,143.32,32,32,113.113.3 
2.113,113.32.32.32.211.113 
1460 DATA 113,113,32,32,32,143,113, 
32,113.143,113,113,113,113,113,32.1 
(3,113.113,113,143,143,143,32,32,32 
,143,113,113,32,32,32,143,143,32,32 
,32,113,143,32,143,113.32.32.32, U3 
,143,32. U3, U3,143, 113, 143,113.143 
4470 DATA 113. U3.32,32,32,143,143, 
32, U3. 113. 113. 113. U3, 113.212.32,2 
13,113,143,113,143.143.212,32,32,32 
,113,113.143.32.32,32.113,143,32,32 
.32,143,143.32,143,143,32.32.32,143 
.113,32.213.113,143,113,113.113,212 
UBO DATA" A"," K"," Q",' J", '10", 
, 9" 
USO DATA 0,5.15,15,5.0 


I I 


Bloques del programa 
DESCRIPCiÓN 
tnicioljzocié:n. 
Bloque principal. 
5ubrutino de estudio iniciol de los 
cortas por parte del ordenador. 
Coge cartas el ordenador. 
Coge carlos un jugadQr humano, 
Da peso Q los cartos e medidc 
que se hacen los jugados. 
1710.1 B60 El ordenador decide el número de 
-cartas ql;le coje4 
1870.2110 Visualizoción de le, ¡ugodo (pone 
en e1 marcado.- y borrQ de la 
me'o la caria cogido). 
2120.2240 Valora lo contigDidad de los 
cortos, paro forfT'lQt escaleras. 
2250-2350 Puntuación de lo partido (Total), 
2360.2540 Puntuoción porciol en la, 
marcadores. 
Visuofiza puntos de esccd
ros. 
Pinto e1 marcadot superior._ 
S-ubrutinas poro pintor o borror 
los cortos. 
Pinla el título y el primer menú, 
Instrucciones. 
Menú de elecci-on del númerO de 
iugQdore
 humanos. 
3920-4000 Menú poro elegir el mono (caso 
de un jugador). 
SubrutiJia pQfC recoger nombre. 
Menú finoL 
InkioJiza les variables neceS()fjo5- 
poro seguir tos mismos jugador:$$. 
Si se entro por 4210, los punlos 
de 10dQs los partidos no se 
acumulan. por le, 4230, si. 
4270.4350 Recoge opción poro un menú. 
4360-4490 Dolos. 


líNEAS 
10.70 
80.680 
690.1090 


1100-1160 
1170-1240 
1250-1700 


2550.2620 
2630-2900 
2910-3080 


3090-3240 
3250.3810 
3820.3910 


4010-4110 
4120-4200 
4210.4260 
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Lista de variables 


TlNrA 
OPCiÓN 
NÚMERO$ 
CARTAS 
TENEMOS 


PESO 
VEO 
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Color poro IQ' DRAW (o 1 
pinto, a O wrro), 
Opción esc(;)
jdo 
h menú 
finaL 
Número par£! -cadQ <arta 
visuolizodo. 
Matriz con la
 cartas 
barajadas. 
Pata todo corto. indica 
quién la ha cogido: 

lj Jogooor 2 u 
ordeoodor. 
lo Jugador 1- 
O, No cogida 
toOovío. 
Controla lo itnportando de 
c:ager una carta
 
Motriz de las -e;:
rtos que 
estudio el ordenodor cuandc 
le loco jugar. 
Almaceno el puesto de ",odo 
corto que estudio dUTPl"ite la 
voloradón ¡ni-del. 


RECU Puntuación parcial de cada 
jugador. 
PUNTOSC Matriz de puntuocione, por 
conjuntos. 
PUNTOSE Molriz de puntuaciones por 
escaleras. 
PRIMERA Señal de primera jugado (o 
cero). 
PALO. VALOR Polo y valor de codo carta. 
JUEGAN Número de jugadores 
humanos. 
CURSOR Posición x poro LOCATE 01 
imprimir o borrar el interior 
de uno corta. 
NAiPE Lleva el número de lo corta 
que toca coger. 
MENOR; MAYOR Volares limites poro lo 
subrutina de lectura de un 
carócter. 
TURNO Indico o quién toco jugar en I 
un momento determinado: 
-1, Jugador 2 u 
ordenador. 
1: Jugador 1. 
MANO Indico quién empiezo la 
porlido. 
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Este mes te pre- 
sertamos u. a 
sección nueva ae 
alucine total. Jugar 
al revés, pasar ae 
, f:::¡se cuando te ma- 

'J ten, juego sin su e- 
¡ lo ni techo, conti- 
J ruar jugando aun- 
&. \ \\ . que se acabe la par- 

 tlda.. 
I Si te gusta disfru ar de 
tus juegos dándolos una dirren- 
sión distir a, POKERAREZAS es 
tu seccióf1. 
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Zyraps, ruevo 
prograna de 
Hewson, nos de- 
vuelve a los tierpos 
dorados de los vipjos 
arcades. 
¡Matar rarcia,os vuelve a 
estar de moda! 
Nosotros cada vez te lo 
ponemos mucho más fáci 
descubriéndote los misterios y colo- 
cando en tu mano todas las vidas infi- 
nitas que necesitas para triunfar. 
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¡Ya esta a la venta! 



CUANDO TERMINE 
$ABRA MANU I 
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Manelar el AMSTRAD PC 1512 
es muy sencillo 
Basta mover la flecha mediante el ralon 
y elegir la 0pclon Que usted desea 
Asi de SIMPLE 
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lo 
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01111 
111111 
111111 
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MESA DE TRABAJO 
Ante usted aparecen. cuandO io precise los ele- 
mentos necesarios para realizar las rutinas dianas 
agenda calculadora calendario, relOl, block de no- 
las. 
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CONTABalDADES 
La puesta al dla de los a5lenlos contables de su ac 
!tvldad o su negocIo es posible con la facdldad que 
le proporcionara dIsponer det progr1!ma eS
flco 
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VEA el contenido de su archivo Ej programa GEM 
(sumIni strado con el eqUIpo) le muestra las carpetas 
que contienen los documentos que necesita en su 
trabaja 
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SELECCIONE el grupo ae aocume ntn 
Que uste d "aatrabalar Lleve 11 .echa 
peta elegida y PULSE el botón del ro'M 
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FICHEROS 
T oaos los datos que usted preCisa, CJaslhcados en 
el orden que haya establecido y dispuestos para su 
uso, cuando los neceSite, 
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PREVISIONES RNANClERAS 


Realice sus prevIsiones econollltcas med.ante la 011' 
IIzacmn de una HOla de Cálculo electróniCa. Estima- 
CioneS, estadls1lcas. presupuestos.. serán efectua- 
dos con rapidez y max.ma ellcaaa. 
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DISEÑO 
Los programas de GEM le facllllan el dlsen selE 
Clonando, mediante el raton las herrarmf '1S nr- 
sanas para cada caso 
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GRAFlCOS 
f raslade a graflcos profeslooales el reo nado de su 
actividad o su negocIo, Eí resumen de : datos ne- 
ceSita este complemento Ideal 
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CONSULTE el documento elegido estudiando y 
pensando las modificaCiones que qUiere realizar 
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TRABAJf comumcandose con el ordenador en 
castellano"medlante la aCCiÓn del ratón y el teclado 
introduciendo los datos que necesite 


I R DEL PROGRAMA 
ECESITE. 
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PROCESADOR DE nXTOS 
.Jmbmando la acclon del raton con la 'ntrodUCClón 
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ASI SU NEGOCIO NO SE LE ESCAPARA 
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Pasamos revista a 
uno de los grandes 
programas de esa 
historia llamada 
PC, se trata de 
Symphony, uno de 
los más potentes y 
completos paquetes 
integrados que hoy 
se ofrecen en el 
mercado. 
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Sympbony 


Feo. Javier Bareeló Taboada 
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Gráficos, base de datos, 
comunictlciones, hoja de cálculo y 
procesador de textos todo ello 
Integrado en un solo programa 


os ordenadores personales 
han ido invadiendo las 
oficinas, primero poco a 
poco, y luego aumentando 
la velocidad, hasta llegar al 
crecimiento actual. Los 
programadores y demás 
operadores de ordenadores han 
pasado de ser unos tipos raros 
que de manera extraña lograban 
que una inmensa máquina les 
proporcione montones de listados, 
a ser los hijos de cualquier vecino. 
Los lenguajes se han hecho más 
abiertos, y los programas se han 
simplificado hasta el punto de que 
una mayoría de usuarios finales de 
ordenadores no tienen ni la más 
remota idea de qué es un programa. 
Pero no todo el software ha ido 
enfocado a esos usuarios finales. 
A la vez, muchos profesionales se 
han ido metiendo, no con 
aspiraciones de programar sino de 
«manejar)} un ordenador de 
manera lo más efectiva posible. 
Para ellos ha nacido un software, 
más o menos complicado de 
manejar, con microlenguajes de 
programación, 
capaces de realizar 
las más diversas 
tareas. Dentro de 
este tipo están los 
paquetes integrados. 
y dentro de 
éstos, Symphony es 
uno de los más 
famosos. 
Realizado por los 
autores de la hoja de cálculo 
LOTUS 1-2-3, un auténtico 
estándar en programas de este 
tipo, su aparición ha sido seguida 
con gran expectación, aunque los 
resultados no han levantado el 
entusiasmo de su predecesora. 
Symphony, como paquete 
integrado, es una hoja de cálculo, 
un procesador de textos, una base 
de datos, un paquete de 
comunicaciones y un programa de 
gráficos. Es integrado porque 
todos los programas COUlparten Y 
actualizan la información de los 
ficheros. Y es difícil de manejar 
precisamente porque hace todo eso. 


Cómo funciona 
Al cargar el programa aparece 
una pantalla que resultará familar 
a usuarios de hojas de cálculo. La 
típica disposición en filas y 
columnas, y dos líneas superiores 
para menús y mensajes. Toda la 
aplicación gira en torno a esta 
pantalla, dado que hasta el 


procesador de textos la usa. De 
hecho, un texto aquí no es más 
que una hoja de cálculo rellena de 
caracteres alfanuméricos. Aparte 
de esta pantalla, Symphony 
permite abrir ventanas auxiliares 
en la pantalla, que pueden 
contener información de distintos 
entornos de la aplicación. El uso 
de las ventanas es imprescindible 
para integrar los distintos 
programas. 
Las funciones de todos los 
programas se seleccionan a través 
de menús que se activan con 
distintas combinaciones de teclas 
de función. 
y algo que a lo mejor 
sorprende a muchos. Los 512 Kb 
de memoria RAM del Amstrad 
PC, si bien permiten funcionar 
aceptable mente bien, no son 
demasiados para Symphony. Este 
programa, que teóricamente 
soporta una hoja de cálculo con 
hasta dos millones de celdas, 
resulta un poco derrochón de 
RAM y ni con mucho se puede 
alcanzar ese tamaño. No obstante, 


si necesita realizar cálculos de ese 
tam
ño a lo mejor se ha 
equivocado de ordenador y lo que 
necesita es un CRA Y... 


La hoja de cálculo 
Es la parte más importante del 
programa. Para los usuarios de 
LOTUS 1-2-3, funciona de 
manera similar, aunque es más 
grande y potente, y dispone de 
más comandos. 
Al igual que en otras hojas, es 
posible recorrer toda la superficie 
de trabajo de celda en celda y de 
pantalla en pantalla. Pero dado el 
tamaño posible de la misma, en 
cuanto la hoja sea un poco grande 
se hace necesario dar nombres a 
determinadas celdas y moverse a 
través de éstos. 


Proceso de textos 


Dentro de la pantalla principal, 
al activar el proceso de textos 


Mundo del 
PC 


aparece en la línea de estado la 
palabra DOC, que indica que se 
está creando un documento. La 
pantalla cambia a una zona en 
blanco, donde se puede empezar a 
teclear texto, con una línea 
superior de formato y otra que 
indica las funciones vigentes y la 
posición en la que se encuentra el 
cursor. 
Posee las habituales funciones 
de edición, justificación, avance 
automático de línea, reformateo 
de párrafos y desplazamiento de 
texto, así como 
búsqueda/ sustitución. 
Con bastante práctica se pueden 
lograr combinaciones tan 
atrayentes como tener varias 
ventanas, cada una con el texto de 
un fichero, y mover bloques de 
uno a otro fichero. 
La ventaja de la 
integración dentro 
del proceso de 
textos es que se 
pueden incluir datos 
de ficheros de hojas 
de cálculo sin 
necesidad de 
teclearlos, y que si 
estos datos se 
alteran a través de la hoja, 
quedan modificados también en el 
documento. Una opción 
francamente interesante. 
y otra opción importante es su 
capacidad para nombrar, grabar y 
posteriormente incluir en otros 
documentos, párrafos sueltos. 
Además, mediante funciones 
macros se pueden almacenar 
frases para utilizarlas de la misma 
forma. Además, se pueden dar 
nombres a líneas, de manera que 
el movimiento por el texto sea 
más rápido. 


Comunicaciones 
Symphony es capaz de realizar 
de manera efectiva cualquier tipo 
de comunicación asíncrona. Los 
datos recibidos de esta manera 
son almacenados bien en una hoja 
de cálculo, o bien en una hoja de 
texto tipo DOC. 
El programa dispone de 
funciones de marcado automático, 
acceso automático al ordenador 
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Mundo del 
PC 


con el que se comunica y 
contestación automática. 
Los distintos parámetros de 
cada transmisión se pueden 
almacenar en una hoja de ajustes, 
donde irán número de teléfono, 
códigos de acceso al ordenador 
conectado y tipo de protocolo. Se 
pueden tener tantas hojas como 
distintas conexiones se hagan, y 
activarlas de manera sencilla. 


Bases de datos 
Simphony también puede 
mantener una base de datos. La 
manera de trabajar con ella, al 
principio resulta un poco 
complicada, aunque con el uso se 
revela cómoda y potente. 
Tanto para crear el diseño del 
fichero como para añadir datos al 
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fichero, hay que hacerlo a través 
del formato llamado FORM, 
mientras que para operaciones 
como la búsqueda, clasificación, 
extracción de datos, etc..., se 
tiene que ir al formato de hoja 
(SHEET). 
Posee características avanzadas 
como la comprobación de los 
datos introducidos, 
establecimiento de un formato de 
entrada fijo y localización de 
datos por aproximación. 
Como limitaciones, presenta la 
del tamaño máximo de un campo, 
que no puede exceder de 255 
caracteres, y que los formatos de 
introducción de datos deben caber 
en una sola pantalla y cada 
campo no puede exceder de una 
línea. La búsqueda admite 
caracteres universales del mismo 
tipo que los utilizados en MS- 
DOS, que son la interrogación 
para una letra y el asterisco para 
una palabra. 


Gráficos 
Las posibilidades que posee 
Symphony para realizar gráficos 
en pantalla resultan francamente 
buenas. Sorprendentemente, a la 
hora de pasar éstos al papel, la 
cosa varía un tanto. No obstante 
el proceso resulta sencillo dado 
que sólo hay que indicar de qué 
fichero de hoja de cálculo se han 
de sacar los datos, y especificar 
los ajustes correspondientes. 
Al hacer los gráficos por 
pantalla, haciendo uso de las 
ventanas, se pueden lograr efectos 
tan interesantes como -por 
ejemplo- presentar los valores de 
la hoja de cálculo, algún texto 
explicativo y el propio gráfico 
simultáneamente, cada parte en 
una ventana. 
A la hora de imprimir, 
desgraciadamente el proceso 
resulta distinto. Primero se 
almacena el gráfico en un fichero 
en disco, y posteriormente otro 


El ploblem" de esle 
I,po de plogl"m" 
I"di,,, en su 
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programa se encarga de mandarlo 
a la impresora. Dentro de una 
misma página, no se puede 
mezclar, debido a este 
procedimiento, gráficos con textos 
o valores de la hoja de cálculo. 
U na lástima... 


Programación Macros 
Symphony posee una serie de 
comandos, que combinados en 
MACROS consigue un altísimo 
nivel de automatización. Un 
MACRO no es más que una lista 
de comandos que se ejecutan uno 
tras otro, al llamarlo con su 
palabra clave. Aunque al principio 
no lo parezca, se pueden lograr 
resultados cómodos y muy 
potentes de esta manera, aunque 
quizá el tiempo necesario para 
aprender y dominar su uso los 
hago poco menos que prohibitivos 
para personas muy ocupadas. 
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Documentación 
El paquete viene bien surtido de 
libros. Además, un curso tutorial 
ayuda a entrar dentro de su 
intrincada estructura. En este 
aspecto, se ha hecho un esfuerzo. 
Pero quizá los resultados no son 
los deseados. Libros tan gruesos 
asustan en los primeros contactos, 
y son bastante incómodos de 
consultar. Demasiada materia a 
leer. Aunque por otra parte, esto 
es lógico. Dada la capacidad del 
programa, se hace difícil explicar 
sus recovecos en menos texto. De 
todas maneras, los dos manuales 
se pasan bastante rato pasándose 
la bola, esto es, llamándose el uno 
al otro, con lo que, unido al 
programa en sí, hace que el 
aprendizaje no sea precisamente 
cuestión de unas horitas. 
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Conclusión 
No cabe duda de que 
Symphonyes un gran paquete. Y 
quizá ahí esté su problema. Si 
necesita una hoja de cálculo, se 
obtienen similares resultados con 
una hoja tipo LOTUS 1-2-3. Una 
base de datos hace el mismo o 
mejor trabajo y lo mismo los 
demás programas. No parece la 
solución ideal, a no ser que se 
necesite de un nivel de integración 
sumamente alto, fuera del alcance 
de paquetes separados, o que le 
guste explorar y aprender poco a 
poco. 
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em Draw es una 
aplicación potente, 
aunque la rapidez no sea 
su virtud principal. Por 
esto, a la hora de ahorrar tiempo 
en la realización de un dibujo, si 
alguna parte de él está grabada en 
otro, o bien el dibujo es 
compuesto, se puede copiar esta 
parte de un dibujo a otro. 
La manera más fácil, aunque 
quizá no la más rápida, sería 
borrar del dibujo final y partir de 
ahí. Pero esto puede no ser 
posible, porque se necesitan partes 
de varios dibujos, por ejemplo. 
En este caso, habrá que realizar 
los siguientes pasos: 
l. Empezar con una pantalla en 
blanco, o bien, como se dice en el 
apartado anterior, partiendo de 
un dibujo en el que se haya 
borrado todo lo no necesario, de 
manera que quede sólo la parte 
del gráfico a utilizar. Es más fácil 
si al elegir este dibujo se opta por 
aquel que tenga la parte a copiar 
más grande o complicada. 
2. Colocamos la pantalla 
anterior de modo que quede en 
blanco la mayor parte posible de 
la misma. Esto se hace utilizando 
el cursor y las correderas. Un 
buen punto puede ser la esquina 
inferior derecha de los límites del 
dibujo. 
3. Sin cerrar el dibujo, aunque 
conviene grabarlo antes, abrimos 
el siguiente dibujo del que se va a 
tomar un fragmento. Encima de 
la pantalla actual, aparece una 
pantalla más reducida con el 
dibujo cargado. 
4. Seleccionamos la o las partes 
a cambiar del dibujo y pulsando 
el botón izquierdo del ratón 
(aparecerá una mano) movemos la 
parte seleccionada hasta que se 
salga de la pantalla de su dibujo y 
esté encima de la pantalla del 
nuevo dibujo. Soltamos el ratón, 
y ya está copiado en la pantalla 
final. 
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Cómo copiar 
parte de un dibujo 
en otro 


5. En caso que vayamos a 
realizar esta operación con más 
dibujos, se cierra la segunda 
pantalla señalando con el ratón la 
esquina superior izquierda de esta 
pantalla, con lo cual aparece otra 
vez sólo el dibujo final. Antes de 
repetir el proceso es más cómodo 
«aparcar» el fragmento nuevo del 
dibujo al lado de los otros, de 
manera que podamos tener la 
pantalla despejada para copiar 
otro fragmento. 
6. Para repetir la operación 
volver al punto tres. 
En muchos casos, según el 
tamaño del fragmento acopiar, 
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puede ser necesario variar el 
tamaño del dibujo secundario, o 
incluso seleccionar para el dibujo 
principal el tamaño de página 
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Con la sección del 
dibujo escogida, 
abriremos otra 
pantalla. 
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Con el objeto 
seleccionado lo 
desplazamos a la 
pantalla y lo 
dejamos caer en el 
sitio correcto. 
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completa, para disminuir la zona 
de pantalla ocupada. No obstante, 
basta con situar el puntero, al 
mover el fragmento de dibujo 
viejo al nuevo, en cualquier zona 
del dibujo nuevo que no esté 
tapada por la pantalla del dibujo 
viejo, aunque el fragmento que no 
quepa, para que éste quede 
copiado y al desaparecer esta 
pantalla aparezca el fragmento en 
su totalidad. 


DIAGRAMAS 
DE FLUJO 


Dentro de las múltiples 
aplicaciones que tiene Gem Draw, 
y con el uso de una de las 
librerías que acompaña al 
programa, resulta sencillo realizar 
diagramas de flujo, esenciales 
(aunque poco usados, por 
desgracia), dentro de la 
documentación que debe 
acompañar a un programa, para 


poder comprender el modo de 
operar del mismo. Además, tienen 
múltiples aplicaciones en otros 
campos. 
Lo primero es localizar el 
subdirectorio Flujo, bien en el 
disco Gem Draw Bussines library 
o bien, si se tiene instalado el 
programa en el disco duro, como 
directorio del directorio principal. 
Dentro de este subdirectorio 
hay tres dibujos distintos. Cada 
uno de ellos tiene varios signos de 
los utilizados en estos diagramas. 
Lo ideal es tener el diagrama ya 
dibujado en sucio. De esta 
manera, en una pantalla en 
blanco se van copiando un 
ejemplar de cada signo que se 
vaya a utilizar. 
Una vez que se tienen todos los 
signos a utilizar en la pantalla 
principal, sólo queda colocados 
en la posición deseada, 
duplicando los signos que se 
necesiten varias veces, unidos con 
flechas y colocar el texto en las 
posiciones correspondientes. 
Luego, a través de Output se 
imprime el resultado y a empezar 
con la próxima tarea. 


gr 
es 
de 
cu 
gr 
pI 
te 


( 


fl 
se 
P 
di 
lc 
si 
in 
p] 
líl 
se 
si 
e! 
p, 
se 


re 
S( 


p: 
di 
re 
L 
dI 
dI 
III 


'OEM 
WRITE 


U na de las ventajas de 
Gem Write es la 
facilidad para manejar 
textos por bloques. Esto 
permite copiar bloques de líneas 
en otra zona del documento, 
moverlos a otro lado, e incluso 
copiar bloques en el disco. 
Esta posibilidad permite grabar 
parte del texto para incluido en 
otro documento, con lo cual - 
por ejemplo- se puede escribir 
un libro por capítulos y decidir 
posteriormente que determinado 
párrafo esté en otro capítulo, y no 
tienes más que grabado por 
separado y cargado en el otro 
capítulo. 
Para realizar todo esto es 
necesario «marcar» primero la 
zona de texto. Esto se puede 
realizar de dos maneras. 
La primera, utilizando el ratón, 
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Escriba 


por bloques 


consiste en situar el cursor en la 
primera palabra del texto a 
seleccionar y se pulsa el botón 
izquierdo del ratón. Después, sin 
soltar el botón, se mueve el cursor 
a la última palabra del bloque y 
se suelta el botón. Con esto, el 
texto en vídeo inverso queda 
seleccionado. 
La otra manera es similar, per 
utilizando las teclas de función. 
Igual que en la anterior, primero 
hay que situar el cursor en la 
primera palabra a seleccionar. 
Después se pulsa la tecla F5 y 
todo el texto entre este punto y el 
final del texto queda en vídeo 
inverso. Si se desea una zona 
menor, basta con situar el cursor 
de la última palabra de la zona y 
pulsar la tecla F6. Con esto, desde 
ese punto hasta el final del texto 
queda «desseleccionado» yt por 
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tanto, en vídeo normal. 
Una vez seleccionado el texto, 
se podrán utilizar las opciones de 
los menús para grabar, SÓLQ se 
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graba la zona seleccionada. Esta 
es la manera de grabar una zona 
de texto, pero si no se tiene 
cuidado se puede creer que se ha 
grabado todo el texto y salir del 
programa, perdiendo el resto del 
texto. 


COMANDOS DENTRO 
DE DOCUMENTOS 


le 


JS 


Para realizar determinadas 
funciones y efectos de impresión, 
se incluyen comandos en el texto. 
Para que Gem Write los 
diferencia de textos normales y no 
los imprima, sino que mande el 
significado de los mismos a la 
impresora, hay que teclar en la 
primera y segunda columna de la 
línea un punto (...). Esta línea no 
se cuenta con lo que el paginado 
sigue siendo correcto. Además, de 
esta manera, también se pueden 
poner comentarios que tampoco 
se escribirán en el documento. 
Hay siete comandos que 
reconoce Gem Write sus funciones 
son las siguientes: 
...P AGE indica el final de una 
página. Al imprimirse el 
documento en este punto se 
realiza un salto de página. 
Lógicamente, en la pantalla, 
después de este punto el número 
de líneas vuelve a ser uno en una 
nueva página. 
...HEAD/FOOT seguidos de 
dos números que indican el 
número de línea donde empieza el 
texto de cabecera o pie de página, 
una clave y el texto de dicha 
zona. La clave será un L si el 
texto se desea a la izquierda, una 
R para la derecha, una C para 
centrar el texto y una A para 
alternar el lado de impresión en 
cada página. 
Para numerar las páginas, entre 
el texto de la cabecera deberá 
incluir los signos ## separados por 
un espacio en el lugar donde se 
desea que aparezcan los números. 
Por ejemplo, el comando 
siguiente sitúa una línea de 
cabecera en la línea cuatro de 
cada página, centrado, que indica 
la página. 
...HEAD04CCapítulo 8 pág. 
Núm.: ## 
Capítulo 8 pág. Núm.: 1 
...PGNOn sitúa el valor n como 
número de página, 
independientemente de la cuenta 
que haga Gem Write. De esta 
manera se pueden enlazar unos 
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documentos con otros para que 
tengan numeración correlativa. 
.. .END para la impresión de un 
documento en ese punto, como si 
del final del documento se tratara. 
...CMDn manda el código 
especial n a la impresora. Esto 
permite enviar los códigos ASCII 
necesarios a la impresora para 
realizar efectos que no estén 
explícitamente comprendidos entre 
los de Gem Write. y resulta 
sumamente útil en caso de utilizar 
una impresora más potente que la 
Amstrad. 
...GEM es el comando que se 
introduce automáticamente en el 
lugar del texto donde se va a 
intercalar un gráfico. Después del 
comando vendrá el nombre del 
gráfico, con su extensión y el 
nombre del directorio en el que se 
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Las tres fases de la 
grabación de un 
bloque. Realmente 
es sencillo y ráPido. 


encuentre, si es distinto al del 
documento en cuestión. También 
acompaña al comando el número 
de líneas que ocupa el gráfico 
para tenerlas en cuenta al paginar. 
Si no se tiene activado el modo 
gráfico, aparecería la siguiente 
línea uutmáticamente al cargar un 
dibujo: 


.. .GEM,20,B:/IMAGES/DIBUJO- 
.GEM 


pero antes de imprimir, es 
conveniente activar los gráficos 
para observar como queda éste en 
la pantalla, pudiendo seleccionarse 
y moverse o copiar a voluntad. 
Estos comandos completan el 
Gem Write ampliando sus, ya, 
muchas posibilidades para crear 
documentos complejos. 
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INFOBYTES 


Pequeño 
pero duro 


Así es el nuevo disco duro de 
20 Mb que comercializa 
Indescomp: tan pequeño como 
una tarjeta, pero tan potente 
como un disco duro 
convencional de media altura. 
Este disco duro tiene la ventaja 
de ocupar un mínimo espacio 
dentro de tu Amstrad PC 1512, 
ya que se aloja en el 
compartimento posterior de la 
unidad central y se conecta a 
uno de los tres slots de 


Spaguetti disco 


Directamente desde Italia nos 
llega esta nueva marca de discos 
de tres pulgadas para su 
utilización en los Amstrad CPC 
664-/6128 y PCW 8256/8512. 
Se sirven, o bien en cajas de 
10 unidades o bien como discos 
sueltos, al precio unitario de 
4-70 ptas. en Informática 
Papelería Plaza de Castilla, 
junto al Asador de la Plaza de 
Castilla de Madrid. Tel.: (91) 
733 22 4-3. 
Los discos están contenidos 
en una bolsa y con etiquetas 
adhesivas para su identificación. 
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expansión; por ello, la 
instalación de la disco-tarjeta de 
Indescomp es simplemente 
sencilla: retirar la tapa 
posterior, insertar la tarjeta, 
atornillada con un 
destornillador de estrella y 
volver a tapar: sin soldaduras ni 
cables extras. 
Para los usuarios del 
Amstrad PC 1512 con dos 
unidades de floppy, les vendrá 
como anillo al dedo, si quieren 
convetir su ordenador en un 
sistema de disco duro. 
En la misma disco-tarjeta se 
incluye el disco duro 
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propiamente dicho -un NEC 
de 3 1/2 pulgadas- y la placa 
controladora capaz de manejar 
a la vez un segundo disco duro. 
Con la disco-tarjeta se 
entrega, además, un completo 
manual y un disco de 5 1/4- 
pulgadas. que contiene diversas 
aplicaciones para el disco duro, 
como la de la instalación 
en el mismo sistema operativo 
Cem. 
Se ofrece con un año de 
garantía y se vende por 123.988 
ptas. en Chips & Tips, Paseo de 
la Castellana, 126. 2804-6 
Madrid. Te!.: (91) 262 23 03. 


Discos de trabajo 
Otro producto de la casa 
británica Acco que traemos a 
las páginas de este número es 
este práctico transportador para 
ocho discos de tres pulgadas, de 
los que se utilizan para el 
Amstrad CPC y PCW. 
No es un archivador, como 
podríamos suponer, ya que 
únicamente puede dar cabida a 
los mencionados ocho discos. Su 
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verdadera misión consiste en 
un soporte de pocos discos 
para llevar en mano de casa 
a la oficina, o simplemente 
como estuche de algún 
disco que utilizamos con 
frecuencia. 
Este práctico invento lo 
podréis adquirir en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez 
2804-0 Madrid. Tel.: (91) 
244 59 36, por 990 ptas, 
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La eterna 
juventud 


l. 


Cualquier máquina está 
sometida a un desgaste en 
largos tiempos de utilización. 
En lo que a nosotrus nos 
concierne, las unidades de disco 
blando del Amstrad PC 1512 
no son ninguna excepción. Las 
cabezas de lectura de ambas 
caras están expuestas a la 
abrasión causada por el polvo y 
la grasa, entre otros agentes 
malignos que pululan por 
nuestra atmósfera. 
La prevención de este cáncer 
de las unidades de disco, no 
sólo evitará los posibles errores 
de lectura y grabación que se 
puedan producir, sino que, 
además, prolongará la 
longevidad, tanto de las cabezas 
lectoras como de los elementos 
mecánicos del disco. 
La solución que nos propone 
Acco consiste en este práctico 
kit de puesta a punto, que 
incluye un par de discus 
absorbentes limpiadures que se 
introducen en un soporte similar 
al de un disco convencional, y 
un pequeño spray para 
impregnar la superficie de los 
discos limpiadores. 
Si estáis interesados en ello, 
lo podréis encontrar en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez. 
28040 Madrid. Te!.: (91) 
2445943, por 3.900 ptas. 
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A lo largo 


Para los propietarios de un 
Amstrad PC 1512 que tengan 
problemas por la estrechez de 
su mesa de trabajo, aquí tenéis 
este archivador para discos de 
5 1/4 pulgadas que puede 
recoger en su interior hasta 
un máximo de un centenar de 
discos. 
Por sus dimensiones ocupará 
un mínimo espacio entre la 
impresora y el ordenador, y 
facilitará la consulta y acceso a 
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los discos que contiene gracias a 
los 10 separadores que se 
insertarán sobre el fondo del 
archivador. 
Está fabricado en plástico de 
color blanco, a juego con la 
carrocería del PC 1512, con 
tapa en color ahumado 
transparente abatible y con 
cierre por llave. 
Si os interesa el archivador, 
lo encontraréis en Micro-l, 
Duque de Sesto 50. 28009 
Madrid. Te!.: (91) 275 96 16 Y 
cuesta 3.400 ptas. 
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Con personalidad 


Si eres de los que se 
identifican con el fenómeno 
Amstrad, o lo que es lo mismo, 
eres un fanático de todo lo que 
inventen los chicos de Alan 
Sugar, aquí te presentamos 
estos discos de 5 1/4 pulgadas 
para tu PC 1512, que no 
sólo llevan la etiqueta de 
tu ordenador favorito, 
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sino la misma garantía en 
cuanto a calidad de 
funcionamiento. 
Los encontrarás en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermúdez. 
28040 Madrid. Te!.: (91) 
244 59 36 en cajas de 10 discos 
o en unidades sueltas al precio 
unitario de 250 ptas. 
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Disco duro en tarjeta 
para Amstrad PC 


Hace pocas semanas pasaba por estas 
páginas una versión de disco duro para 
Amstrad de los conocidos como de posición 
horizontal. En este número volvemos sobre el 
tema, pero en esta ocasión con un hard-disc 
vertical. Se trata de la versión oficial ofrecida 
por el importador oficial Amstrad España. 


U n disco duro, o no 
Removible que prefieren 
algunos, es básicamente 
un sistema de 
almacenamiento de alta 


capacidad, 20 megas en el caso 
que analizamos, y que vienen a 
suponer unos 50 discos flexibles 
de los que en la actualidad posee 
el Amstrad PC. Existen dos 


Un detalle 
de la tarjeta 
controladora 
donde 
pueden 
apreciarse 
los swiches 
de 
configuración. 
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modelos de disco duro de los que 
pueden instalarse en el interior del 
equipo. Por un lado, están los 
horizontales que suelen ir alojados 
en una de las bocas que la carcasa 
de la unidad central trae prevista 
para los floppys. El otro tipo se 
aloja en uno de los slots traseros 
en forma de tarjeta. Esta 
disposición permite al usuario 
seguir trabajando con dos 
unidades de disco, aunque es 
difícil, dada la capacidad del 
disco duro, que esta configuración 
sea necesaria. 
No obstante, aquellos que 
comenzaron con dos disqueteras y 
desean ampliar ahora su equipo, 
pueden optar por un disco duro 
de estas características cuya 
instalación no exije mutilar una 
de las capacidades de su actual 
sistema. 
Otra de las ventajas de los 
discos duros en tarjeta, se 
encuentra en su instalación. Para 
ello lo único que hay que hacer es 
conectar la tarjeta en cualquiera 
de los slots libres. La única 
precaución que debe observarse en 
esta operación es que el 
ordenador se encuentre 
desconectado de la red, ya que de 
no ser así los daños que podemos 



producir en nuestro equipo 
pueden ser irreparables. 
Tal y como puede observarse en 
la fotografía, la tarjeta 
controladora, y lo que es 
propiamente el disco duro, vienen 
incluidos ambos, uno al lado del 
otro, en la propia tarjeta. 
En la tarjeta controladora 
pueden observarse una serie de 
swiches que permiten utilizar el 
disco duro en distintas 
configuraciones. Tal y como se 
presenta la unidad, puede ser 
utilizada en ordenadores de uno o 
dos floppys, pero en el caso de 
poseer ya un disco duro en el 
interior del equipo, la 
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Ordenador: PC- 1512 
Distribuye: Amstrad España 
Dirección: Aravaca, 22 
Teléfono: 459 30 04 


HARDWARE 


configuración deberá ser cambiada 
en función del nombre de unidad 
que usted desee asignarle. Para 
esta tarea será su distribuidor el 
que deberá informarle de la nueva 
posición de los conmutadores, ya 
que en el manual que se entrega 
no viene ninguna información 
sobre este tema. 
En nuestro caso, el disco que 
cayó en nuestras manos se 
encontraba ya formateado y nada 
más instalarlo comenzó a 
responder. En su interior tenía ya 
grabado todo el sistema operativo 
y toda la instalación Oem lista 
para su uso. No obstante, si su 
disco duro no presentase estos 
ficheros, puede instalarlo usted 
mismo. Para ello, simplemente, 
una vez formateado y realizadas 
las particiones del DOS, deberá 
ejecutar el fichero bat, 
CONFINO, que aparece en el 
disco que deberán entregarle con 
su hard-disc. Tras su ejecución se 
le irá pidiendo que inserte los 


Cómo usar meior 
el disco duro 
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La utilización correcta de 
un disco duro exige aprove- 
char al máximo la estructu- 
ra arborescente que ofrece 
el MS-DOS. 
La situación ideal en nues- 
tro disco duro es que en el 
directorio raíz no aparezca 
ningún fichero eiecutable, 
salvo el fichero Command, 
necesario si queremos que 
nuestro disco duro sirva co- 
mo disco de arranque. 
La creación de nuevos 
subdirectorios o carpetas se 
realiza mediante el coman- 
do MD (make directory). 
Para cambiar del directorio 
actual a un subdirectorio de 
éste, deberemos utilizar la 
instrucción CD (change di- 
rectory). 
Si deseamos borrar un 
subdirectorio ya creado, nos 
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bastará con teclear RD y el 
nombre del sub directorio a 
borrar. Para que esta ope- 
ración tenga éxito, éste de- 
berá forzosamente encon- 
trarse vacío. 
El retroceso, una vez que 
nos hemos adentrado en la 
estruCtura del disco, no es 
posible realizarlo nivel a ni- 
vel, y deberemos subir de 
un salto hasta el principio. 
Para ello nos bastará con te- 
clear CD. 
No obstante, ya pesar de 
que usted esté más acos- 
tumbrado a utilizar su com- 
patible desde MS-DOS, to- 
do lo concerniente a la or- 
ganiza'ción del disco duro 
lo realizará mucho más fá- 
cilmente desde Gem, con 
simples movimientos de ra- 
tón. 


discos originales, que le dieron 
con su ordenador, los cuales irán 
siendo copiados uno tras uno, Y 
metidos en las carpetas que sean 
necesarias. 
En general, los resultados que 
hemos obtenido con el disco han 
sido bastante buenos, con un nivel 
de fiabilidad muy alto y un 
tiempo de acceso más que 
aceptable. De todos los comandos 
de manejo del disco duro que 
posee el DOS, sólo el fichero 
Park, que aparca las cabezas en 
una zona reservada para ello, no 
funciona. Aunque según el 
fabricante esto no es necesario, ni 
ha sido previsto, ya que para su 
transporte, el disco posee un 
sistema automático de fijación de 
las cabezas que impide que éstas 
se deslicen sobre la sensible 
superficie del disco. 


El disco duro completo. arriba la tarjeta 
controladora y abajo la unidad de disco 
propiamente. 
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Juego 
de la vida 


En el número tres de AMSTRAD 
Especial publicaron un programa 
sobre el juego de la vida, parte de 
él en Basic y parte en Código 
Máquina. No he tenido problemas 
con la parte en Basic, puesto que 
el menú se muestra en pantalla, 
pero me temo que la parte de 
Código Máquina no está bien 
cargada, ya que al pulsar la 
opción primera, la pamalla, en 
modo 2, muestra el mensaje 
latidos y debajo «Press Play Then 
Any Key». Teniendo un 6128 con 
disco no creo que deba salir ese 
mensaje, por lo que les ruego me 
indiquen la forma de cargar el 
Código Máquina de este 
programa, dirección y longitud en 
bytes del mismo. 
Antonio Puro Morales 
Lo que le ocurre con el 
programa es bastante típico. 
Sucede en un alto porcentaje de 
casos en los que se teclean 
programas en Código Máquina, 
pero a partir de este número de la 
revista nunca más ocurrirá. Para 
eso hemos publicado el cargador 
universal. Vamos al hecho. En 
nuestros ordenadores, el programa 
funciona correctamente. No 
obstante, cuando nosotros, al 
teclear un programa en redacción 
en máquina para probarlo y 
ejecutarlo metemos la pata, que 
también lo hacemos en un alto 
porcentaje de veces, el ordenador 
no se bloquea, sino que aparece 
en pantalla el mismo mensaje que 
usted ha sufrido: «Press Play 
Then Any Key». Para serie 
francos, no nos lo podemos 
explicar, pero ocurre. Y por 
último, estamos en condiciones de 
asegurarle que el listado del 
«Juego de la Vida» está 
absolutamente correcto. 


Bancos 
de memoria 
y Hisoft e 


1. ¿Cómo puedo utilizar el 
segundo banco de memoria en un 
CPC-6128, o en general cualquier 
ampliación, sin necesidad de 


78 AJISTRA D ,\{-¡I/(ll/f/l 


r- 


. 


... . 
 J.guna 


recurrir a programas en Código 
Máquina, con instrucciones Peek, 
Poke, In, Out o semejantes? Me 
interesa esta cuestión para utilizar 
las ampliaciones en programas 
realizados con otros lenguajes, y 
algunos compilado res no admiten 
la inclusión de programas en 
Código Máquina. En concreto, 
con el que pretendo trabajar es el 
compilador e de Hisoft. 
2. ¿Qué utilidad tiene la librería 
EXTCMD.H que viene incluida 
con el compilador C de Hisoft y 
cómo se utilizaría? 
Dylan Hoffman 
No se puede acceder al segundo 
banco de memoria del 6128 desde 
Basic. Le remitimos el artículo 
«Cómo usar el segundo banco de 
memoria del 6128», AMSTRAD 
Semanal número 96, páginas 
46-50, donde el tema se aborda en 
profundidad. 
El fichero del Hisoft C al 
que hace referencia es un 
Header, es decir, un lugar 
donde se hacen una serie de 
definiciones imprescindibles para 
que otras librerías incluidas con el 
compilador las utilicen. Sirve para 
que los programas escritos en este 
lenguaje corran bajo CP / M, 
siendo capaces de manipular 
órdenes del sistema operativo. 


El desprotegedor 


En la revista número 79 
publicásteis un programa 
desprotegedor y, como 
normalmente hacéis, explicáis la 
forma de carga, pero lo que yo 
no sé es la mecánica a seguir, si 
primero cargo el desprotegedor y 
después el programa o si es al 
revés y qué órdenes son las que 
tengo que hacer o que mandar al 
ordenador. 
Ruego me lo expliquen como si 
fueran a hacerlo en un programa, 
paso a paso. Muchas gracias. 
Por cierto, poseo el CPC 664. 
Carlos Santana 


En el artículo del 
desprotegedor hay dos 
programas: el cargador (página 
21) y el listado assembler (página 
22). El proceso es el siguiente: 
teclee el pro
rama car
ador y 


sálvelo en disco antes de 
ejecutarlo. Después, teclee 
la orden: 
CALL &9000 
y listo. Tiene ya a su disposición 
los nuevos comandos. Vamos a 
coger la ocasión al pelo y explicar 
otro punto importante. Hemos 
recibido numerosas cartas de 
lectores indicando que el 
programa no les funciona. 
Nosotros, como de costumbre, 
comparamos el listado de la 
revista con el que tenemos en 
disco, y nos coinciden 
exactamente. Tras un tiempo de 
dudas, hemos averiguado la 
causa: no ejecute nunca la orden 
cat con el desprotegedor en la 
memoria. El ordenador, cuando 
se le pide un catálogo del disco, 
altera la memoria y la usa, 
destruyendo nuestro programa. 
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Load Failed 
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Trabajando con el programa 
Eamsword (del disco regalo) o 
con Eamplus (AMSTRAD Semanal 
número 77) en mi CPC 6l28, 
recientemente adquirido, me 
encuentro con el problema de no 
poder recuperar mediante la 
opción Retrieve, los ficheros 
anteriormente grabados con 
dichos programas. 
Aparece el mensaje «LOAD 
FAILED - RETRY». 
Tras intentarlo en otro aparato 
de las mismas características 
obtengo el mismo resultado. 
Curiosamente en la subrutina de 
carga he borrado de la línea 45000 
la orden ON ERROR GOTO 
4700. Lo intemo de nuevo y me 
aparece el mensaje de error 
Improper Argument in 4540. 
Desearía saber, si es posible, y 
si el error está en esa línea, cómo 
arreglarlo. Si no es así, ¿existe 
acaso otra versión de Eamsword 
que pueda correr en este 
ordenador? 
Javier Cordero Regordán 
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El programa que usted tiene en 
su mano no funciona bien. Por 
desgracia, está lleno de defectos y 
fallos. Si sus necesidades implican 
un uso frecuente de procesadores 
de textos, le recomendamos que 
escoja otro. La pequeña inversión 


qu 
el 
aje 
Es} 
] 
prj 



que va a tener que realizar queda 
compensada con creces por la 
ausencia de problemas y 
«curiosidades}} como la que le 
aqueja. 
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Problemas 
con 3D 
Munchies 


Cl/ 


Tengo una duda sobre el 
programa de la serie oro cuyo 
nombre es 3D Munchies. He 
seguido todas las instrucciones tal 
y como vienen en la revista, pero 
al hacer Run para que se salvara 
la parte binaria, todo va bien 
hasta la línea 270, donde se para 
y sale un mensaje que dice: 
«Overflow type mismatch in lO». 
La línea 270 está bien, al igual 
que todo el programa, pues lo he 
corregido varias veces. Mi 
ordenador es un CPC 6l28, no se 
si a ustedes les ha funcionado 
pero lo cierto es que a mí, no. Me 
gustaría que revisaran su listado y 
si el error es suyo lo publicaran 
bien. Si no es suyo y es mío les 
ruego que me perdonen. 
Fernando Aguilar 
No hay nada que perdonar. 
Estamos encantados de intentar 
solucionar los problemas de 
nuestros lectores. El 3D 
Munchies lleva una gran parte en 
máquina, y cualquier error de 
tecleo puede causar un 
comportamiento extraño del 
ordenador. Por ejemplo, es 
posible que le aparezca un 
mensaje de error Basic como el 
que nos cuenta, sin que la línea 
10 tenga nada incorrecto. 
Creemos sinceramente que ha 
cometido un despiste al teclear el 
I programa, cosa nada difícil dada 
su longitud. Por favor, revise 
\ cuidadosamente las Datas. 
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Cuestión 
de bloques 


dán 


en 


Me dirijo a vuestra sección para 
que me incluyáis en ésta o en otra 
el primer bloque del programa de 
ajedrez publicado en el AMSTRAD 
Especial número cuatro. 
En este programa faltan las 10 
primeras líneas. 
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Jorge Hernández 


Que nosotros sepamos, el 
programa al que se refiere está 
completo. Lo único que ocurre es 
que, en lugar de comenzar en la 
línea 10, comienza en la lIO. Eso 
no indica que falten líneas. 
Recuerde: un programa puede 
comenzar por cualquier número 
de línea. 


Cucal 


Me ha surgido un problema al 
copiar el programa Cucal de la 
revista AMSTRAD Semanal 
número cuatro. Una vez copiado 
todo el listado y repasado, lo 
ejecuté, el juego sale bien en la 
primera pantalla, al pasar a la 
segunda, la parte derecha de la 
pantalla no se borra para cambiar 
las minas y salen muchas más, no 
obstante, se puede jugar. No 
ocurre lo mismo al pasar a la 
tercera pantalla, es totalmente 
imposible pasar a la cuarta por la 
posición de las minas. 
He repasado el listado y está 
igual que el de la revista, pienso si 
dicho juego no será apto para mi 
ordenador, que es un 464, y de no 
ser así ruego me indiquen dónde 
está el error. 
En la misma revista viene Juega 
al Ajedrez y en la «Serie Oro}} del 
AMSTRAD Semanal número 72 el 
juego Golf, ¿lo puedo grabar en 
mi 464 sin problemas? 
Pedro Cerdá 
Cuando uno teclea un 
programa, existen dos tipos de 
errores: los que hacen que el 
programa se detenga, fáciles de 
localizar y corregir, y aquellos que 
permiten que la cosa funcione, 
pero mal. Creemos que su 
problema proviene de un error 
insidioso de este tipo, y no nos 
proporciona los datos necesarios 
para resolvede el problema. 
El programa Juegue al 
ajedrez corre en un 464 el 
Golf, no. 


Mi golf, 
mi golf 


La presente tiene como motivo 
el solicitarles algunas aclaraciones 
a ciertas dudas surgidas con el 
juego titulado Mi Golf: 


l. ¿Es correcto el teclearlo y 
grabarlo en cinta 
fraccionadamente? 
2. ¿Es éste un juego compatible 
con el CPC 464? 
3. Cuando pongo en marcha el 
programa sólo sale un rectángulo 
de caracteres rojos. ¿A qué es 
debido? 
4. ¿Qué debo hacer para que el 
juego marche bien? 
Por favor explíquemelo paso a 
paso, pues mis nociones de 
informática son escasas. 
Pedro Femenia 


l. Sí, siempre y cuando lo que 
usted teclee en las sesiones 
posteriores a la primera vayan en 
el orden correcto, una tras otra. 
2. No. 
3. A un previsible error de 
tecleo. Necesitamos datos más 
concretos para poder ayudarle, 
cosas como el mensaje de error 
que el ordenador proporciona Y 
en qué línea. 
4. Por favor, envíenos una 
carta detallando más su problema 
y revise cuidadosamente el listado. 


No cargan 


Soy propietario de un Amstrad 
CPC 6128 y hace poco me compre 
los juegos Game Over y Army 
Movt'
. Al intentar utilizar los 
carpidores modifiqué parte de 
ellos -suprimí las sentencias 
ITape- tengo el juego en disco y 
cambién LOAD "!C por RUN 
"ARM o "GAM, según el juego, 
pero siguen sin funcionar. ¿A qué 
es debido? ¿Acaso no sirven los 
cargadores para disco? Si sirven, 
¿qué debo hacer para que 
funcionen? 


Ramón Rosello 
Los cargadores de estos dos 
juegos son para las versiones de 
cinta. En este mismo número, en 
las páginas de juegos, encontrará 
esos cargadores para disco y unas 
cuantas sorpresas más. 
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WCOSCRIPT 


Formato 


de los documentos 


por Féo. Javier Barceló Taboada 


En lo que a procesado res de texto diseñados para 
Z80 se refiere, Locoscript se encuentra sin duda 
entre los más potentes. Sin embargo, por desgracia, 
potencia siempre suele ir unido a dificultad de uso. 
Nosotros vamos a intentar que en esta ocasión, esto 
no suceda. 


La utilización de plantillas de 
formato, economiza , meiora 
considerablemente las sesiones de 
trabaio con Locoscript. 


esde la primera 
pantalla se observa que 
Locoscript divide los 
documentos en grupos. 
Esto no sólo tiene el efecto de 
agruparlos de manera que su 
localización sea más rápida, sino 
que además influye en su 
formato. De esta manera, cada 
grupo incluye un fichero llamado 
Plantilla.Est que define el formato 
general de los documentos. 
Este formato, llamado Formato 
Base es el que define la longitud 
de la página y el contenido de las 
cabeceras. Pero esto no restringe 
las posibilidades. Se puede diseñar 
un formato específico para un 
documento, e incluso para una 
parte de un documento. E incluso 
se pueden definir varios formatos 
estándar para uso en documentos 
de ese grupo. Si se diseñan para 
todo el texto, y no sólo para una 
zona, se llaman Plantillas de 
Grupo. 
Para definir un formato, dentro 
de los menú s del texto se elige el 
menú de formatos. Dentro de éste 
se puede elegir entre 
cambiar a otro 
definido previamente, 
cambiar el formato 
base y crear uno 
nuevo. Si se elige esto 
último, el programa se 
sitúa en las tres líneas 
superiores, indicando 
los parámetros que se 
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pueden modificar. Éstos son el 
paso de letra, el de línea, la 
separación entre líneas, el tipo de 
letra y la activación o 
desactivación de la justificación 
automática del documento. 
Además, se pueden fijar distintos 
márgenes y tabuladores, además 
de un Tabulador Decimal. Este 
tabulador alineará los números de 
distintas líneas de manera que el 
punto decimal de todos ellos esté 
en la misma columna. 
Al editar o modificar un 
formato en una determinada 
posición del texto, sólo los 
caracteres que vayan a 
continuación y hasta la siguiente 
línea de formato se verán 
influidos por el cambio. Para que 
sea todo el texto el que se vea 
afectado, habrá que hacer la 
inserción del formato en la 
primera línea del mismo. Y si se 
desea que éste se grabe para 
posteriores ocasiones, habrá que 
convertirlo en una plantilla de 
formato. 


Una plantilla de formato no se 
conforma con definir los 
parámetros antes mencionados. 
En ella se fija el tamaño de la 
página, cómo se distribuyen las 
líneas entre la cabecera y el pie de 
la página, así como las 
características de los textos de 
cabeceras y pies de página, 
situación de las mismas y 
numeración de páginas. También, 
para textos justificados, se fijan 
normas de impresión para 
párrafos y líneas cortadas. 
Las posibilidades de realizar 
textos para las cabeceras y pies es 
muy completa. Se puede optar 
por poner textos diferentes en las 
páginas pares y las impares, así 
como colocar los textos centrados 
o alternados según sea página par 
o impar, y la colocación de los 
números de la página de igual 
forma. 
La plantilla de formato no es 
más que otro fichero de 
Locoscript que se puede editar, 
modificar, copiar o borrar. Al 
llamarse el fichero Plantilla.Est, 
cuando crear otro 
documento, el 
programa lo que hace 
realmente es buscar un 
fichero con este 
nombre, y copiarlo 
con el nombre del 
documento nuevo y 
editarlo. Por ello cada 
grupo debe tener una 
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Plantilla de Grupo. Para el caso 
de que el programa no encuentre 
plantilla en algún grupo, utiliza 
una plantilla propia por defecto. 
Ésta viene preparada para papel 
A4 en paso de doce carateres por 
pulgada. 
Si al crear una plantilla de 
grupo se definen varios formatos 
standar, a los que el programa 
dará un número, al funcionar con 
dicha plantilla se pueden utilizar 
con elegir la opción de cambiar 
formato durante la edición. Si se 
tiene activada la función mostrar 
regla, se verá que aparece la 
nueva regla de formato en el 
punto donde estaba el cursor 
cuando se seleccionó la opción. 
De esta manera se pueden 
cambiar con poco trabajo el 
formato de un texto cuantas veces 
se qUiera. 
Además de todo esto, se puede 
elegir que se impriman los ceros 
con o sin barra inclinada, si la 
coma es un punto o una coma, y 
el número máximo de formatos 
que se van a crear, hasta un límite 
de 99. Fijar un número 
excesivamente mayor al de los 
formatos que realmente vamos a 
crear es un desperdicio de 
memoria y espacio en disco. 
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Para evitarse el paso por los 
distintos menú s cuando se ha 
practicado un poco con el 
programa, basta con teclear las 
teclas más o menos que estén al 
lado de la barra espaciadora, y la 
abreviatura del código deseado. 
La abreviatura más rápida es la 
compuesta por las letras en 
mayúsculas que aparecen en los 
menús. Pero tampoco es necesario 
saberse todas ellas, dado que el 
programa analiza los caracteres 
introducidos hasta que da con un 
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código que contenga, aunque sea 
en otro orden, las letras 
introducidas hasta el momento. 
En cuanto encuentre un sólo 
código que cumpla esta condición 
ejecuta la orden sin esperar a 
pulsar INTRO. De esta manera el 
manejo de las opciones gana 
mucho en velocidad. 
y como intermedio, existe un 
menú intermedio, donde están 
contempladas algunas funciones, 
las más utilizadas, de manera que 
tampoco haya que recorrer los 
menús para llegar a una función 
determinada. 


Para realizar documentos 
comerciales, en los que hay 
cantidad de frases que se repiten, 
se puede utilizar una facilidad 
parecida a la de los bloques. Cada 
grupo de textos puede contener un 
fichero llamado FRASES.EST, 
que contenga hasta 29 frases, 
llamadas desde A hasta Z, y que 
pueden ser introducidas en el 
texto de manera muy rápida. Las 
limitaciones de este fichero son 
que cada frase no debe ser mayor 
de 255 caracteres, pero teniendo 
en cuenta que el máximo de 
caracteres por fichero debe ser 
mayor de 550. Esto es una 
pequeña limitación, pero se puede 
obviar relativamente teniendo 
varios ficheros. Sólo uno podrá 
tener la extensión .EXT, pero se 
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pueden renombrar según cuál se 
vaya a utilizar. 
Para utilizar esta función, hay 
que recurrir al menú de bloques. 
En éste aparece un recuadro que 
pone FRASES y una serie de 
letras. Estas letras corresponden a 
las que todavía no están usadas en 
el fichero FRASES.EST 
correspondiente al grupo del 
fichero editado. Pulsando una de 
ellas, el texto que haya sido 
seleccionado previamente es 
grabado incluido en el fichero de 
frases. Si por el contrario, se elige 
una frase que ya exista, ésta 
queda insertada en la posición 
donde estuviese el cursor en el 
momento en el que se invocó el 
menú. 
El problema de la justificación 
automática es que en una línea 
puede haber pocas palabras y muy 
grandes. En este caso, 
normalmente al justificar quedan 
espacios excesivamente grandes 
entre las palabras. El efecto visual 
que esto produce es bastante 
desagradable. 
Esto se puede remediar 
manualmente, insertando un guión 
y un espacio a continuación. Pero 
si posteriormente se insertan 
palabras antes de ésta, al volver a 
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Mundo del 
PCW 


justificar el guión no queda en la 
posición deseada. 
La manera de evitar esto es 
utilizar una facilidad de 
LOCOSCRIPT llamada Guión 
Blando. Esto se hace desde el 
menú de control de líneas. Al 
activar esta opción, el programa 
inserta el guión en la posición del 
cursor. Pero si posteriormente se 
modifica el texto, y este guión no 
coincide con la última columna 
del texto, es eliminado y la 
palabra unida otra vez. De esta 
manera se evitan bastantes 
manipulaciones en el texto. 
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La presentación de 
textos e informes 
puede ser prácticamente 
perfecta conociendo 
alSlunas de las 
capacidades de este 
brillante precesador de 
texto. 


De la misma forma, cuando se 
va a teclear una serie de palabras, 
con signos en medio, pero sin 
espacio, LOCOSCRIPT tratará 
todas ellas como si fueran una 
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sola, y o bien las cambiará de 
línea todas o bien insertará un 
guión en un sitio donde vaya 
mejor un espacio. Para estos 
casos es preferible elegir separar 
todas las palabras por espacios 
blancos. De esta manera al 
justificar, si se encuentra un 
espacio en blanco en la última 
columna de una línea, pone el 
resto de la palabra en la siguiente. 
y si luego al reformatear cabe 
toda la palabra junta, el 
programa suprime el espacio. 


SANGRADO 


" 


En determinados documentos, 
es necesario que una parte del 
documento tenga un margen 
izquierdo más pequeño que el del 
resto del documento. Esto se 
podría lograr insertando un 
formato distinto, Pero si sólo se 
desea reducior el margen en un 
párrafo, es más rápido hacerlo de 
otro modo. 
Esto se realiza creando un 
tabulador de sangrado, o 
tabulador frances. Se realiza 
llevando el cursor a la columna 
donde se desea el margen, y 
pulsando las teclas AL T y TAB. 
Desde ese momento, y hasta que 
se teclee intro, esto es cuando se 
teclee punto y aparte, el programa 
justifica según el nuevo margen. 
Una vez pulsado INTRO el 
tabulador se convierte en un 
tabulador normal, perdiendo ese 
efecto. 
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GANE 100.000 PTAS. CON 


Porque pretendemos que AMSTRAD personol sea 
también su revista, tenemos una sección en la que son 
publicados los mejores programas originoles recibidos en 
nuestra redacción. Ustedes serán los encargadas de rea- 
lizar estas páginas, en las que podrán aportar ideas y 
programas interesantes para otros lectores, 
Las condiciones son sencillas: 
- los programas se enviarán a AMSTRAD personal 
en uro cinta de cassette o disco, sin protección en el soft- 
ware, de forma que sea posible obenter un listado de los 
mismos. 
- Cada programa debe ir acompañado de un texto 
explicativo en el cuol se incluyan: 
- Descripción general del pragrama. 
- Tabla de subrutinas y variables utilizados, explican- 
do claramente lo función de codo uno de ellos. 
- Instrucciones de mane;o. 
- Todos estos datos deberán ir escritos a máquina o 


con letra clara para mayor comprensión del programa. 
- No se admitirán programas que contengan carac- 
teres de control, debido a que no son correctamente in- 
terpretados por las impresoras. 
- En una sool cinta puede introducirse más de un pro- 
grama. 
- Una vez publicado, AMSTRAD personal abo- 
nará 01 autor del programa de 15.000 a 100.000 pe- 
setas, en concepto de derechos de autor. 
- los autores de los programas seleccionados para 
su publicación, recibirán una comunicación escrita de ello 
en un plaza no superior a tres meses a partir de la fecha 
en que su programa llegue a nuestra redacción, 
- AMSTRAD personal se reserva el derecho de 
publicación o no del programa, 
- Todos los programas recibidos quedarán en poder 
de AMSTRAD personal. 
- los programas sospechosos de plagio serán elimi- 
nados inmediatamente. 


UD PERSONAL 


¡ENVIENOS 
su PROGRAMA! 


Ad¡untando 105 siguientes datos: 


Nombre y apellidos, 
dirección y teléfono 
Indicando claramente en el sobre: 


REF. SERIE ORO 
AMSTRAD personal 
a HOBBY PRESS, S. A. 
Ctra. de Irún, km 12,400 
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Así será nuestra cabecera, a partir del próximo mes. 
AMSTRAD SEMANAL se convierte en AMSTRAD PERSONAL 
MENSUAL, con muchas más páginas, para que en cada número 
encuentre más información sobre su modelo de ordenador. 
PIDA AMSTRAD PERSONAL 


Con la calidad de siempre... 
y mucho más. 
No se lo pierda. 
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FICHA TECNICA 


FERNANDO MARTIN 
BASKET MASTER 


. 1 62 JUGADORES. 3 NIVELES 
DE JUEGO . TIRO DE 6,26 
. 8 TIPOS DE MATE 
. 6 ESTRATEGIAS DIFERENTES 
. ESTADISTICA DE PORCENTAJES 
Y TANTEO. INFRACCIONES 
. REPETICIONES DE MATES 
AMPLIADOS Y EN CAMARA LENTA 



